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METAL DETECTING SYSTEM 
REFERENCE TO APPENDIX 

A computer program used in accordance with the present invention is 
shown in the Appendix. 

5 BACKGROUND OF THE INVENTION 

The present invention relates, in general, to a metal detection system and, 
more specifically, to a method and an apparatus capable of detecting tiny metal 
pieces which may be unlawfully concealed on a person's body. 

Industries involved with precious metals including precious metal refineries, 

10 mints, jewellery manufacturers and the like require a detecting apparatus which 
is capable of quickly and efficiently detecting small quantities of precious metals 
which may be unlawfully concealed on the person of an individual. 

Many devices have been developed for detecting metals in the ground and 
elsewhere. However, such devices are intended to locate relatively massive 

15 concentrations of metal in static environments and, frequently, they are designed 
to exclude signals produced by small amounts of metal. For these and other 
reasons, metal detectors of this type are not suitable for screening individuals for 
concealed precious metals. 

There also exists a number of metal detecting stations for detecting 

20 concealed firearms at airports, public offices, embassies, jails, and even hospitals. 
They are typically characterized by a portal unit which defines a passageway 
through which a person is required to pass. Electrical coils extend vertically in 
parallel relation around the portal unit with one coil, a transmitting coil, being 
energized by an alternating current to cause it to generate a magnetic field which 

25 in turn causes an electrical signal to be induced in the other coils, the receiving 
coils. Relatively massive metal objects, such as a gun, passed through the unit 
disturb the magnetic and hence the signals induced in the receive coils. Thus, the 
output of the coils are monitored to detect such disturbances. Heytow United 
States Patent No. 4,012,690 granted on March 15, 1977 and Mallick et al United 

30 States Patent No. 3,686,564 granted on August 22, 1972 describe devices of this 
type. 
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All the metal detecting stations, including those disclosed in the referenced 
patents, currently known to the inventor use electromagnetic principles. 
Generally, as indicated above, a transmitting coil connected to an electrical 
current driving unit is used to generate a time changing magnetic field and 
5 receiver coils are used to detect changes in the magnetic field. The changes in the 
magnetic field occur when either eddy currents are generated in conducting 
materials brought into the vicinity of the station or when ferromagnetic materials 
are brought near the station. Most ferrous material exhibit both effects - the eddy 
current and ferromagnetic effects. The extent to which the magnetic field is 
10 changed depends upon many factors including electrical conductivity, magnetic 
permeability, shape, size, structural properties, density, orientation and location 
relative to the transmitting coil. The human body is known to be a poor electrical 
conductor and has slight ferromagnetic properties. Due to the relatively large size 
of the human body a small but significant change occurs in the magnetic field of 
15 these stations when a person passes through. It has been found that, because the 
signal strength associated with a person is so much stronger than the signal 
strength associated with a small quantity of a precious metal, such stations are not 
inherently designed to detect the small quantities of metal as required in industries 
involved with precious metals including precious metal refineries, mints, jewellery 
20 manufacturers and the like. 

Kerr United States Patent No. 4,719,421 granted on January 12, 1988 
discloses a metal detector for detecting impurities in bakery products and 
comprises a transmit coil positioned between a pair of receive coils, as in the 
above referenced prior art, and circuitry which responds to deviation form a 
25 standard signal by generating a faulty product signal. The system can be set to 
distinguish between different types of loaves of bread. This arrangement suffers 
from the same difficulty mentioned earlier, that being that the size of the human 
body is so much larger than the small quantity of material it is difficult to 
distinguish signals associated with the small quantity of material from those 
30 associated with the individual carrying the material. Further, characteristics such 
as the size, shape, density and so forth of human body vary greatly from person 
to person and, accordingly, it is not possible to categorize humans in the manner 
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in which loaves of bread can be categorized, and to provide preset values as 
proposed by Kerr against which the output of the receive coils can be compared. 

In summary, known metal detection devices do not specifically address the 
special problems associated with detecting concealed precious metal on humans 
5 or objects and to provide a permanent record of a violation when such is detected. 

SUMMARY OF THE INVENTION 

The principal object of this invention is to provide a means for detecting 
the smallest quantity of metal possible being transported, typically unlawfully and 

10 usually concealed, by persons passing through a detection station. It is a further 
object of the present invention to provide a detection system and process whereby 
the signal is obtained and can be displayed in a graphical form in order to 
demonstrate, in a court of law if necessary, the signal obtained from an individual 
passing through the metal detector. 

15 The metal detector described hereafter has the capability of detecting 

significantly smaller quantities of metal carried by persons than any other currently 
known and available metal detector. It has the further advantage of displaying a 
recording of the actual signals obtained. It therefore is especially useful in 
industries dealing with precious metals including refineries, mints, jewellery 

20 manufacturers, etc. although use in a wide variety of other areas is also possible. 

Accordingly in one aspect of the present invention there is provided a 
method of detecting concealed metals comprising the steps of generating a 
fluctuating electromagnetic field about a passageway, passing a person or object 
through the passageway, obtaining an electrical signal representative of the change 

25 of the electromagnetic field as the person or object passes through the 
passageway, comparing the values of predetermined characteristics of the 
electrical signal against the corresponding values of the characteristics of a base 
electrical signal for the person or object previously obtained when the person or 
object was known not to contain concealed metals, and generating an alarm signal 

30 when the differences between at least one of the characteristics signals exceeds 
a predetermined threshold. 
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In accordance with a further aspect of the present invention there is 
provtded an apparatus for detecting concealed metals on a person or object, 
comprising means for generating an electromagnetic field about a passageway 
means for producing an electrical signal representative of the change in the' 
electromagnetic field as the person or object passes through the passageway 
means for comparing the values of predetermined characteristics of the signal 
agamst corresponding values representative of an electrical calibration signal 
obtamed when the person or object was known not to contain concealed metals 
and means for generating an alarm signal when the differences between the values 
of at least one of the characteristics of the signals exceeds a predetermined 
threshold. 



15 



20 



25 



30 



BRIEF DESCRIPTION OF THE DRAWINGS 

These and other features of the invention will become more apparent from 
the following description in which reference is made to the appended drawings 
wherein: & 

FIGURE 1 is a perspective view of a typical metal detecting station in accordance 

with a preferred embodiment of the present invention; 
FIGURE 2 is a perspective view of the coil and winding 'configuration and 

associated circuitry for the detecting station; 
FIGURE 3 is a diagrammatic electrical schematic of a circuit in accordance with- 

a preferred embodiment of the present invention; 
WGURES 4a-4f flhistrate the voltage signal changes in a'receive coil as a typical 
metal-free human body passes through a detecting station with and without 
m the current generated by field-shaping coils; 
FIGURES 5a-5c illustrate typical signal changes in the receive coil as various 

objects are brought close to the receive coil and then withdrawn- 
FIGURE 6 is a logic flow chart illustrating the manner in which a person's 
calibration values are determined; 

FIGURE 7 is a logic flow diagram illustrating the normal operation of the 
detection system. 
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DESCRIPTION OF PREFERRED EMBODIMENT 

With reference now to the drawings, FIGURE 1 shows a typical metal 
detection station comprising the open-ended enclosure or portal unit 10 with a 
person 12 walking through the portal unit on a shallow platform 14, an entry 
5 display 16 and an exit display 18, both mounted on the portal unit, a computer 
console 20 and a card reader 22 connected to the computer system. An electrical 
transmit coil, discussed later with reference to FIGURES 2 and 3, is disposed 
about the portal unit and generates a magnetic field at a predetermined 
alternating frequency. Similarly, electrical receive coils are disposed about the 

10 portal unit in a manner described later and produce alternating electrical signals 
in response the magnetic field in their vicinity. The signals are further processed 
and then digitized and transmitted to the computer system. The receive coils 
produce a characteristic signal when the portal is empty. Similarly, a person 
walking through the portal will influence the magnetic field in a distinctive manner 

15 and it has been found that it is possible to detect these distinctive characteristics 
from the output of the receive coils. Thus, in accordance with one aspect of the 
present invention, each person with pass privileges is required to walk through the 
portal without metal objects for the purpose of producing a base or calibration 
signal which is processed to quantify the characteristics. These characteristics are 

20 stored in computer memory so that whenever the individual passes through the 
portal unit, the computer will compute and compare the characteristics of the 
receive coil with the calibration characteristics to determine whether the individual 
is carrying concealed metals. It will be understood that the present invention is 
not limited to humans and that it is equally applicable to animals and inanimate 

25 objects. Thus, unless otherwise indicated, the reference to "person" is to be taken 
to apply to animals and inanimate objects. 

Under normal operation, a person inserts an identification card into card 
reader 22 and waits for permission to walk through the portal unit. The card 
reader reads the card in known manner and transmits signals representative of the 

30 identity of the person to the computer system. If the person's status in the 
computer system is such that it is permissible for the person to pass through the 
portal unit, the display on the entry sign 16 will so indicate. The system is able 
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to recognize when the person has entered and exited the portal unit by comparing 
the output of the receive coils against the signal characteristics of an empty portal. 
When the system recognizes that the person has exited the portal, it processes the 
signals which were produced while the person was in the portal and compares 
5 them to the base or calibration values discussed earlier for that individual. Based 
upon this comparison, the exit display 18 will indicate either a "clean" or an 
"alarm" condition. The envelope of the signal generated (similar to that shown 
in FIGURES 4 and 5) when the person passed through the portal can be 
displayed graphically on the computer monitor for visual observation by the 
10 operator. This display and other relevant data may be printed on paper to serve 
as a permanent record if desired. 

FIGURE 2 illustrates an arrangement of coils in accordance to the 
preferred embodiment of the present invention. A transmit coil 30 is disposed 
substantially midway along the length of the portal and is operable to produce an 
15 alternating magnetic field within the portal. A pair of receive coils 32 are 
coaxially disposed on opposite sides and equidistantly from the transmit coil and 
operate to produce an electrical signal in response to changes to magnetic fields 
within their respective fields of influence. A field-shaping coil 34 is coaxially 
disposed proximate each receive coil and on the side thereof remote from the 
20 transmit coil. The field-shaping coils serve to reduce the effect of objects, such 
as a person's feet, placed in close proximity to the receive coils. Finally, at least 
one pair of field-shielding coils 36 are coaxially disposed on the axially outer sides 
of the field-shaping coils. These coils serve to reduce the magnetic field extending 
axially from the portal unit. While the field-shaping and field-shielding coils 
25 enhance system performance, they are not essential to successful operation of the 
system. All of the coils are located in planes which are perpendicular to the axis 
of the passageway through portal unit 10 and are fixedly mounted in or on the 
walls of the portal unit to avoid vibrations which would disturb the magnetic fields 
by suitable insulated mountings (not shown). The portal unit also incorporates 
30 magnetic field shielding comprising thin narrow strips of ferromagnetic material 
in at least its top and side walls as described in more detail later. 



WO 91/03746 



PCT/CA90/00286 



-7- 

With reference to FIGURE 3, a driver 40 delivers a high frequency current 
to transmit coil 30 at a frequency, typically 25 kHz, determined by oscillator 42. 
This rapidly changing current generates a magnetic field about the axis of transmit 
coil. A capacitor 44 is connected across the input leads to the transmit coil and 
5 is chosen to cause a resonant condition in the transmit coil and serves to 
significantly amplify the current in the transmit coil and the magnetic field strength 
about the coil. 

The receive coils are responsive, by producing a current therein, to all 
magnetic fields and changing currents in their respective vicinities including the 

10 alternating magnetic field produced by the transmit coil, the field-shaping coils, 
field-shielding coils and ferromagnetic material and ferrous material in which eddy 
currents are produced. If the coils are wound with precision, such that the 
spacings between respective windings are accurately controlled and substantially 
identical on each side of the transmit coil, then the currents and voltages induced 

15 in each receive coil will be substantially identical. 

As best shown in FIGURE 3, the receive coils 32 are connected together 
in series such that as the voltage in one coil increases, the voltage in the other 
decreases. In this way, the resultant voltage across both coils is substantially zero. 
A capacitor 46 across the output leads of the receive coils is chosen such that it 

20 will cause a resonant condition between the two receive coils. Any small voltage 
differences between the two windings will then be greatly increased due to this 
resonant condition. 

In practice, it is virtually impossible to wind the transmit and receive coils 
with exact precision. These differences, along with general wiring connections and 

25 other external influences, will cause significant non-symmetrical influences on the 
magnetic fields inside the portal unit. Therefore, the induced voltages in each 
receive coil are not in general identical - albeit they are very close. Hence, it is 
necessary, in order to achieve a balanced condition, to provide a means to adjust 
or trim the voltage induced in each receive coil. A quadrature adjusting means 

30 is provided to balance the "in-phase" and the "out-of-phase" components of the 
signals. There are in general many conceivable ways to accomplish this 
adjustment In the illustrated embodiment, a wire loop 47 having its axis normal 
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to the axis of the coils, and miscellaneous adjustments of the transmit leads are 
used to zero the induced voltage across the combined receive coils. 

The field-shaping coils are used to generate an additional magnetic field 
in such a way as to enhance the detection of metal. It will be noticed that the 
5 field-shaping coils 34 are in close proximity to the receive coils 32. It should also 
be noted that, typically, the only part of the human body that comes in close 
proximity to the receive coils are the feet (typically, a few centimetres spacing). 
Due to physical constraints, it is impractical to design units in which this is not the 
case. The design of the units can be such that greater clearances for arms, hands 
10 and heads are achieved. The voltage change in the receive coils due to a 
particular object increases as the distance from the object to the receive coil 
decreases. Therefore, the receive coils are inherently more sensitive to the feet 
of an individual walking through the unit. Furthermore, significantly greater 
variation in the signal received by the receive coil will occur depending on the foot 
15 position relative to the receive coils. This type of variation will not be as 
significant for other parts of the body. In order to reduce the detrimental effects 
of the variation in the voltage induced in the receive coils due to the position of 
the feet, an additional current can be generated in the field-shaping coils. The 
advantages of having this additional current will become apparent later. In the 
20 present configuration, a separate phase shifter 48 and driver 49 are used to 
control the phase and amplitude of the current in the field shaping coils. An 
alternate means of achieving similar currents in the field-shaping coils could be 
achieved by carefully designing the coil and selecting appropriate passive 
components (resistors, capacitors and inductors) and not require the use of the 
25 phase shifter 48 and driver 49. 

The primary function of the field shielding coils 36 is to effectively reduce 
the magnetic field extending axially from the portal unit. The induced current in 
these coils creates a magnetic field which opposes (or reduces) the magnetic field 
which generates it. In this way, the magnetic field extending from the portal unit 
30 is also decreased. Therefore, ferromagnetic materials, which tend to focus the 
magnetic field through these materials when brought into close proximity to the 
front or rear of the unit, will have a greatly reduced influence on the 
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non-symmetrical magnetic field distribution generated inside the portal unit. In 
the present configuration, the field shielding coils are shown to be located or 
spaced a distance axially outwardly from the respective transmit and receive coils. 
This is necessary in order to minimize the effect the field-shielding coils would 
5 have on the magnetic field in the vicinity of the receive coil. 

The previously noted narrow ferromagnetic shielding strips (not shown) 
extend over the exterior surface of the portal unit on at least the sides and top. 
The purpose of these strips is to constrain, as much as possible, the magnetic 
fields generated by the transmit and field-shaping coils so they remain substantially 

10 within the portal unit. If no significant magnetic fields are able to leave the unit, 
then no significant eddy currents can be induced in electrically conducting 
materials exterior to the unit, and, if no eddy currents are generated, then no 
additional magnetic fields can be generated which would normally have been 
sensed by the receive windings. Similarly, ferromagnetic components close to the 

15 exterior of the unit would have a minimal influence on the magnetic fields inside 
the unit. This unit therefore provides a degree of electromagnetic shielding to the 
front and sides. 

The output of the receive coils are connected to detection electronics 
commonly found in commercially-available, eddy current non-destructive testing 

20 instrumentation. One type of eddy current instrument which has been used 
successfully in laboratory tests is known as the "Defectomat F', by Institut. 
Dr. Forster of West Germany. Less expensive eddy current instruments are 
available from a number of suppliers. Other instruments are available from the 
following companies: Eddy Current Technology, Elotest, Hocking, Nortec; 

25 Reluxtrol, Tecrad and Zetec, certain of which can supply separate digitizing cards. 
This electronics, in general, has the capability of effectively balancing the small 
residual voltage remaining on the receive coil after the walk-through unit has been 
installed, and detecting the change in magnitude and direction (phase) of the 
voltage change in the receive coils. As explained below, the output of the 

30 detection electronics is comprised of two voltages which can be resolved into a 
resistive voltage change and a reactive voltage change. During system operation, 
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these voltages are being constantly digitized by separate digital circuitry, and the 
values are received by the computers. 

FIGURE 3 illustrates the basic components and operation of the detection 
electronics. The output terminals of the receive coils are each connected to an 
5 input of an amplifier 50 whose output 52 is connected to one input terminal 54 
of a summer or adder 56. The output of oscillator 42 is passed through an 
attenuator 58 and a phase shifter 60 and applied to the other input terminal 62 
of the summer. The output of the summer is a signal which is the difference of 
the two input signals. Thus, when the portal is empty, the output of the receiver 

10 coils will be the same as the input to the transmit coil and, accordingly, the 
difference in the magnitude of the two signals will be zero. However, if a person 
or object is passing through the portal, the magnitude and phase of the output of 
the receiver coils will be different, resulting in a non-zero summer output. The 
summer output is delivered to a demodulator 66 which produces two DC level 

15 signals, one being representative of the resistive component of the signal and the 
other being representative of the reactive component of the signal. These two 
signals are then delivered to an analog-to-digital converter which digitizes the 
signals and feeds the digitized signals to the computer 70. 

Before describing the digital signal processing scheme of the present 

20 invention, it would be useful to briefly review the types of signals sensed by the 
receive coils. An understanding of these signals is required in order to appreciate 
the value of field shaping coils 34 and to understand how the signal analysis is 
able to discriminate differences in the processed receive coil voltages. 

As indicated above, the induced signal in the receive coils can be resolved 

25 into two components, namely, a resistive component and a reactive component. 
These components can be plotted on a graph in which the reactive component is 
plotted along the ordinate (y-axis) and the resistive component is plotted along the 
abscissa (x-axis). When a ferromagnetic material is brought into the vicinity of the 
receive coil, the magnetic field inside the coil increases due to the higher magnetic 

30 permeability of the ferromagnetic material. The increase in magnetic field 
strength causes a voltage increase in the receive winding (FIGURE 4). The 
voltage increase is 90° out-of-phase with the voltage induced in the receive coil 
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due to the magnetic field generated by the current in the transmit coil, and is 
therefore identified as a voltage increase having a direction along the positive 
reactive axis (see Signal No, 1 in FIGURE 4). Now consider the effects on the 
detection system of two loops of copper wire, each about 5 cm in diameter. One 
5 loop will be made of a wire having a very small cross-sectional area (for example 
#43 AWG) and the other of a larger cross-sectional area (for example #14 
AWG). When the thin wire loop is brought close to one of the receive coils, a 
voltage will be induced in it due to the magnetic field generated from the current 
in the transmit coil. Because the resistance of the thin loop is high relative to the 

10 loop's reactance, the current in the loop will be substantially in phase with the 
induced voltage. As a result the magnetic field due to the current in the thin loop 
will increase, and hence the voltage induced in the receive coil will increase with 
an "in-phase" orientation (see Signal No. 2 as shown in FIGURE 4). When the 
thicker wire loop is brought close to the receive coil, a similar voltage is induced 

15 in it from the magnetic field generated by the currents in the transmit coil. 
However, the reactive impedance is far greater than the resistive impedance of 
this loop, and, as a result, the current generated in the loop generates a magnetic 
field which opposes the magnetic field which induced the voltage. As a result, the 
voltage induced in the receive coil will decrease, and this decrease is 90° 

20 out-of-phase with the initial voltage induced in the receive coil from the transmit 
coil (see Signal No. 3 in FIGURE 4). 

Therefore, it can be understood from the above examples that, depending 
upon an object's magnetic and conductive properties, shape, size, structural 
properties, density, orientation and location relative to the various coils in the 

25 metal detector, a range of signals having orientations of up to 180° is possible. 
Typically, most precious metals have a high conductivity and so the voltage change 
tends to be in the negative reactive direction. However, very thin materials (for 
example platinum gauze) will exhibit properties like that of the thin wire. 

It will be seen that while a person or object passes through the portal unit 

30 the magnetic field about each receive coil will fluctuate. If the receive coil output 
is sampled at equal increments of time, resolved into its resistive and reactive 
components and plotted on a graph as described above, a curve similar to that 
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illustrated in FIGURES 4 and 5 will result. The curve is characterized by two 
loops 80 and 82 in which loop 80 indicates the response of the receive coil 
proximate the entrance of the portal unit and loop 82 indicates the response of 
the receive coil proximate the exit of the portal unit. Each loop has an approach 
5 section 84 in which the strength of the signal increases in magnitude and a 
departure section 86 in which the strength of the signal decreases in magnitude. 

As stated earlier, the human body is known to be a poor conductor and has 
slight ferromagnetic properties. Due to the size of the body, the signal change 
detected by the receive coils due to the presence of the body can be significantly 
10 greater than the signal of interest, typical of the small metal object being carried 
by the person. A typical signal, sensed by the receive coils from the human body 
as it passes through the metal detector being described, is shown in FIGURE 5a. 
This signal shows the response of each receive coil, and hence we see the positive 
and negative components of the signal. It is clear from this signal that the body 
15 has a much higher conductive component than it has a ferromagnetic component. 
FIGURE 5b shows the much smaller response for a tiny metal object alone as it 
is passed through the portal unit and FIGURE 5c shows the signal when the tiny 
metal object is being passed through the detector on the human body. It follows 
from the foregoing that the output of the receive coils will vary with the manner 
20 in which an individual walks through the unit, i.e., side to side and front to back 
motion, swinging arms, etc. These variations cause the normal signal to vary 
somewhat and potentially inhibit the ability to detect small quantities of metal. 
To increase the detectability of small objects, it is therefore advisable to require 
employees to walk through the unit in a reasonable consistent and predetermined 
25 way. 

The effect of the field shaping coils can now be appreciated. In order to 
demonstrate the effect of a person's foot as he walks through the portal, signals 
from a plastic container containing a salt water solution were obtained. This 
container was moved through the portal in a manner similar to that of a person's 
30 foot, and the signals are shown in FIGURES 4a and 4b. It will be noted that the 
signal without the field shaping current is approximately 50% greater than the 
signal with the field shaping current. FIGURES 4c and 4e show the signal from 
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a person walking through the portal without (FIGURE 4c) and with (FIGURE 4e) 
the field shaping current. The signal without the field shaping current is only 
about 20% greater than that with the field shaping current. This is expected since 
the predominant effect of the field shaping current will occur on things closest to 
5 it (i.e. the feet) and to a lesser extent on things more removed (i.e. the legs, torso 
and head). FIGURE 4d and 4f show the signals of a person walking through the 
portal with a coin in the front pocket without (FIGURE 4d) and with 
(FIGURE 4f) the field shaping current. The change in the middle angle is 
significantly greater for the case with the field shaping current (about 13°) than 

10 without the field shaping current (about 9°). Therefore, by utilizing field shaping 
currents, a significant increase in the detectability of small metal objects being 
carried by individuals is obtained. 

Each person who walks through the portal unit must have first been 
calibrated. The calibration process is illustrated in the flow chart of FIGURE 6. 

15 The calibration process consists of the individual walking through the unit a 
number of times - for example 8 times. During each pass through the unit, the 
computer system receives the digitized voltage values. Based on these values, it 
determines when the signal starts and ends, and computes various characteristics 
of the signal for each pass. These characteristics can include, for example, the 

20 maximum positive and negative reactive components, the maximum positive and 
negative resistive components, the sum of the absolute values of the positive and 
negative reactive components of the signal, the sum of the absolute values of the 
positive and negative resistive components of the signal, the angle defined by 
these two sums called the differential angle, the angle of the middle portion, (e.g. 

25 the middle three-fifths) of each of the approach and departure sections of the two 
loops, and a middle angle defined by the terminal portion of the departure section 
of the first loop and the initial portion of the approach section of the second loop. 
These angles may be computed by any suitable technique, such as linear 
regression techniques, well known to those skilled in the art. The mean and 

30 standard deviation of each of these characteristics are then computed, and can be 
checked against the individual's weight, height and other significant features (e.g., 
implants, dental bridges etc.) to ensure the values are consistent with those 
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expected. If the values are satisfactory, they are stored in computer memory in 
association with other particulars, such as name, identification code and the like, 
for the individual. These values are considered the individual's calibration values 
and are used during normal operation. An advantage of this approach is that it 

5 considerably reduces the amount of computer memory required for each 
individual. It is possible, of course, to store the raw data, samples taken at small 
increments of time as the person passes through the portal unit. However, such 
an approach would consume a considerable amount of computer memory and 
would introduce considerable complexity into the signal analysis algorithm. 

0 During normal operation, as illustrated by the logic flow chart of 

FIGURE 7, after the individual has been identified by the computer system and 
instructed to walk through the unit, the computer system receives the processed 
receive coil voltage changes in digitized form, determines the characteristic values 
of the signal and then compares these values to the calibration values previously 

5 described. Based on this comparison, a decision is made as to whether an alarm 
or non-alarm condition is present. The results of this decision are then displayed 
on exit display 18 so that an attending security guard can take appropriate action. 
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• ?h^^L2P *" ^f* 1 ^* «<> operate a precious metal detector 

• ..t miv »x i.v.i.^ro»^i!.t.c2or".» to 

^f*?? EH^CTIOH TCGAINSET* COBCL (BVVAL GAIN*) 

SISSS S^^SM" ~i BKVAL PHASE*) 

ill 

DECLARE SUB MAIN. MENU. DISPLAY {) 

SSf^SS !H5 SE***™* 323 (condition%) 
DECLARE SUB GETSICNATURE M 
DECLARE SUB CETINKEY () 

S?£?25 2Hf "PDATE . EMPLOYEE . DATABASE () 

?55 LARE 8X78 DISPLAY. DATABASE O * 

DECLARE SUB PHDCONS <A%) " 

DECLARE SUB PKDKEAD M 

DECLARE SUB GET. DATA (1 

DECLARE SUB COMPENSATE () 

DECLARE SUB OPERATE () 

^CLARE SUB BLAKKLINE (LZKE.TO.BLAKK%) 
DECLARE SUB ADDN2WCHAR ( ) J 
SfSJ^SE f 1 ® ^^AD • KEYBOARD () 
DECLARE SUB CHECK. ID () 

111 SS §^f M ^^°»; D -— « 

DECLARE IS ^^^.^f;™-^,' ^-^.POIKX*, 
S £ke!£p?; ' IPRM% ' X "«""». COL0«H*. ASPACECHRS 

SSSS ^V^^A^D^^A^^ UPDATEHEADT$ ( ) 

UPDATEADBHEAOTSO " #HEAD *' OTDATEAODHEADR% ( J , OPDATEADOHEADC% { ) , 

|S K^^h-^-M,. UPDATECOH O , VPDA TCS PCS»<, 
COMMON NUMBER. OF. EMPLOYEES % . DATA cHXwrr-c 

COJ^ON^DACT^O, DACTFIKSTS ( ) , DACTIHIT$(), DCARDLASTS ( ) > DCARDH04 () 
1, BOTHEP^t) ° *' DIMPIANT (' *S STOINC * 1. DPACE() AS STRING * 
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£2252 £Ul^ REFLINE ' PI ' RADTODEG, LOOPSPERSEC. BLINKTIME 

COMMON RBCOKP.CHECK%, FREQfi, PHASE%7 GAIN* toamcp* 

COMMON PILE • CONSTANTS $ , LAST • DATE $ LAST TIMEfi^ 

COMMON X.DEL.CHK.6%, Y * DEL. CHk7s%T X DEL CHlPl* v nrr ^ ^ 

COMMON CALIBRATE vxi Aptav irC^t ' J~~S.TZL CHK ' E * ' V.DEL.CHK.E% 

COMMON vSS^^tSS^/^SSR' ° PERATE 'MAX. DELAY. TIME% 

COMMON CONPARM$() # CALQUBST$0 

COMMON NUM. CAL. HEAD*. CALHEADR% M CXlMvxnr±t\ mtut.»^/ 4 
COMMON NUH.CON.PARM%; CONROH%M CONmSJ} ' S£?££f J J! 

£2222 £f s - nos. okVTkStok$ 5 

COMMON F1HITS, IASTKEYS. PASSmmt 
CLEAR , # 2000 

SSI £J12 TO *>' comp#(3) 

251 2 EAOR%<25 >' HEAOC*(25) # KEAOT$(251 SPCStr?** 

s Sag*' «^srSsKT 

KMAX% » 50 

SSSS2Si£5 XX%) ' DACTLAST$ (NMAX% ) 

DIM DMEAN(NMJUC%, 10), DSTDEVfNMXXt inf ' 
CALX. PMDCONS(O) 

S3 SSSSi^SdK^'^SSS^KSrJS^" 
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om ScKtiIS) max - SAMPI£S ^ 0R *^ent%), ycaldat%( 8 , max.samples. for. event*) 



SSJ^i^HIS !! 0: JEND * - is IEND% - 20000 
WHILE TIME. TEST % - O 

JEND* m 2 • JEHD% 

STTZKE - TIMER 

WrSlE"- 1 T^ END%i FOR I% " % T ° IEND%S NEXT »« NEXT J* 
WEND ENDTIKE " ST *IME > 1.5 THEN TIME. TEST* - 1 

^h1?m E - Tor" 0 * ' (ENDTIKE * STTIHE) * I END* 
TIME LOOP* - BLINKTIME * LOOPSPERSEC 

Sir L^l! 3 ! 2 ^ "Vs* 0 "* 2 K$ " "OK-s'noTOKS - "NOT OK« 

ESCKEYS - CHRS(27) 1 
AOAY% « ^(HIOO (DATE$ # 4, 2)) 

5'E5w"S5 # H£- S ! m 2 * X.DEL.CHK.S% 
^•P^CHK-INV-St - 2 * Y.DEL.CHK.S% 
SCREEN 0, , 1, Xt CIS 
COSUB EMPLOYEE . DATABASE 

OUtfl?23S£ :-Ho 5 SPACECHR$ - STRIKGS(80 ' ASPACECHRS) 

CALL PHDHEAD 

GOSUB SET. BOARD 

CALL MAIN . MENU . DISPLAY 

RES PONS ER* m CSRLIN: RES PONS EC* - POS(O) 

St2t?5lgS'«iS t4 * 1 V * 1Ua RESPOHSE 5- ,on BO that the OPERATE mode 
RESPONSES - "O" 
WHILE RESPONSES <> "-Q" 
SELECT CASE RESPONSES 
CASE *C» 

GOSUB CALIBRATE 
CALL MAIN . MENU . DISPLAY 
RESPONSES - »« 
CASE IS - "O" 

RUN. MODES « "OPERATE" 

COSO^ T OPBRATO E$ " YES$ 11,01 G0SUB SAVE . DATABASE 

CALL MAIN. MENU. DISPLAY 

RESPONSES - 
CASE "D" 

CALL UPDATE • EMPLOYEE • DATABASE 

CALL MAIN . MENU . DISPLAY 

RESPONSES - «» 
CASE "O" 
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CMi DISPLAY. DATABASE 
CASE IS - »Q» 

caITSSe 23 ' 11 mm " STOP " 

IOCATE RESPONSES ♦ 2. i 

300. S: SOUND 300. 2 

f?™i? "O- 3: SOUND 50. 3 

EESPONSES - DCASE S (A S , 

WEND 
END 



l^SAm.LES.BEPOPE.EVEHT* - CALIBRATE. MAX. DELAY. TIME* . IK^UPX.^ 

' «?;s^i r^- ~pi»y— ia. t Bano and thair enployee nunb 

CA^ C |lANKLINe"8 * f S pRIHT 32": "" 

*°-^ TN a^ last nane " f 

^I^databaI^-^ then 

IF A$ - THEN GET. v»n» _ * <A *' 



tdl * $ " " M " »■» «W.HAME5 - NOS: OKAY. TO. CALIBRATES 
now to Mk. lMt Bnma TOtch 



NOS 
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NAHE. MATCH $ - XBS9 

1 'kAKeThXTCH S 5 " KUti * ' ~ "^THAMES THEM 

I* - CAL. INDEX. NUH% 

PRINT ■ do J*"" n« th. Mm..- 

««JQ% - CSRLINs STOW* - WsTS) «"» nu » b « <«/■> ? "» 

WEND ' ^ ! GOSUB ^HECK.INKEY: Print AS: AS - UCASES(A3) 

- -H- THEN GET. NAMES - NOS: OKAY . TO . CALIBRATES - NOS 

ELSE 

CALTYPE$ - «N- 
END IF 
END IF 
END IF 
WEND 

"o§s^-StfSSS $ " XES$ - *« THEN 

n* 8 " CALIBRATE . DISPLAY . CHANGS 
«IX BLAHXLINE(IB) 

«XHT -D^you vl rt to eh« g . « ny v.lu.. - „ ter X(yes) M(no) „ f 

SK'SK'SK* ^ A$J *«« - «CASE S (A S , 
CASE «*•» 

<a COSOT i CAUBHAKON.SETUP.NAME 

END SEI2CT r 
WEND 



SUBSTITUTE SHEET 



WO 91/03746 



PCT/CA90/00286 



-21- 



EHO IF 
END IF 

; - Hot. tiwit JLn «utln« CALIBRATE.DISPLAY.CHANCE th. parameter 

TOwTJSnt U ?* S |; AtERT% " 0! PASS1CHECKS - "HOT OK" 
CLS 2 

DELYL^SLra^ DZtX DELY D1F - AN ANGL2 ANGR1 ANCR2 

KH p" S P S^ % /o KAX - PASSWJM% «" "ASS.ALERT* - 0 AND ESCHITS - NO* 
CAIX COMPENSATE 

S*"L 8 £*2 K " l «(2S)S SOUND 300, 3: SOUND 200. a 
MOOT ^Ok to walk through - .lboWs against «««•.« , 

^chit^'nos Sen 1 * " PASS "' pJs,m "' " 
^"^S^^lnra" 85 OOT PDIS0% » PDIS0 - G0 * 

CALL GETS IGNATURE 
PGR II • X TO HSAMP% 

XCALDAT%(PASSNUM%, 1%) - X%(I%) 

he VCALDXT%(PASSNUM%: 1%) - Y%(Z%) 

NCALDAT% ( PASSNUMt ) - NSAMP% 
IF END.EVENTt > o THEN 

CALL GETFEATURBS(O) 

i£CATE 13 + PASSNUMt, 1 

PRINT USING -!##-, PASSNUM%? : PRINT - 
TO 5 " * 1 TO NUM.FEATURESt 

CALFEATURE ( PASSNUM* , 1%) . FEATURE (1%) 
HE ™ I NT jD 3XHO i -„«,.,", FEATURE (It) f 

END XP 

p^r , ^As S -NSs p i E ?- iH - RisETiHE * / 2 

END XP 

WEND 

: ~ cScJ^^oSSS^ 1 ^ 1 « in «-« *■ "tisry the 

"pJSff pJSTi !i° AND ESCHIT$ - N °5 THEN 
W ?Jf ^M-PASSI <> 0 AND PASS. ALERT% - 0 
22fE5 5 E J- STATSt ^SOB PRINT. STATS 

S^Si2 K L:«Z ES98 00505 CHECK.STATS 
IF REDO. PASS % <> o THEN 

J^ffS?! " "DO. PASS*: PASS. ALERT % - 0 

PRINT "Ok to walk through - elbow, against sides.", 
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GOSUB PLOT. CAL. BORDER 
CALL GETS IGNATURE 
FOR II.1TO NSAHP* 

?S*i£i T%(PASSNDM *> - NSAHP% 
IF END.EVENT% > O THEN 

CALL GETTEATURES f O) 

LOCATE 13 + PASSNUH*, 1 

PRINT USING "###•*. PAssmm* , . _ 

Po « " - i num. rSSi PRINT * 

END IF 

Iff: §5gT?^£&£ar ■ - i: «™ - 



IF STATS. OKS - YESS THEN • 

« - CM.. INDEX. HUM! " oka * to "Pdat. employee, lnfo 

D»PXANT(I%) - d£^fip?Li T ?! R i??^!> - CALEMPBRIDGES 
now " CmSwSeR?*"' DPACE(1%) " CATEMPPACES* 

SS«™ " , 10 °°»°°« PASS.SAVE* - 1 
SUM - o 10 lttx -* , *SSNUM% 

" " 1 10 WM.reATORES* 
g^SUM ♦ ABS (CALFEATDRE ( J% , „, - nHEAH ( „. «, , , DST0EV( „. K%) 

NEXT * SUKMIH »» S ™»™ " «», PASS . SAVE* - „ 

S?,^?2 8010 DISCB. CHECK 
CAL. TILE. NAMES - "B: " + AFN<5 
TO I"ORIVE.B: ERROR? „ + VE tf 

ORfVE.B. ERRORS - NOS 
HeSd^ CM """-W«ES FOR OUTPUT AS II 

OOS08SAVE.CAI..DATA 
OH ERROR GOTO 0 

KSSSSfsnem::.-". 
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^OT B i^f55«if«i S ^ BIAN KLI»E(24): BEEP 
SSzZ* ^Calibration waa successful - •»; 
***** "turn to continue. «, 

COSUB CHECK. INKEY 
DATA. CHANGE $ - YES$ 
ELSE 

FOR It ■ 1 TO KDK.PEATURES% 

HE «lEAM(INDEX.Wm% f 1%, - 0: DSTDEV (INDEX. HUM % f 1%, - 0 
S^ B i^?^ NE i? 5) : BIANKLINE(24): BEEP 

SS&«a r.r— — 

END IF 
ELSE 

raS^ B i£!5?2i! <25)S BIANKLINE(2«) : BEEP 

END IF 
END IP . 
AIARH$ - NO$ 
RETURN 

A4% - DEKPNO%(I%) 

Bl - nWMi*il: J)f'B"!'li^i«! S '^ 6 ',* 7 ' M$ ' A9$ - AB$ 
B4 - rwiin Tf S* WIBAH(I%, 2); B3 - DMEANfI%. 3) 

B7 - BHEMUm' 5 I Sf ' S5 AN(I% - 5): B6 . D iS5 1% « 
Bk - 5SS{i5: 10) " BMEM, <"' 8»: B9 - DMEA«}«; ,j 

WUTE #1, NCAtDA T %<PASS,SAVE%) 
FOR J* ■ 1 TO NCAXDAT% (PASS SAVT.W 
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NEXT J% 
CLOSE #1 
RETORN 



sss ssstxSsF tS skew (which isn,t fuu> is in driv « 

^ET^WffiS 2 ! YES$ r ° Utin * t0 9,t an ««Ploy«« nana and employee number 
WHItE GET. NAMES » YES$ 

CALEHPNO% . £MPNO% ASTR$: EMPNO% - VAL( LEFTS (ASTRS , 4)) 

OLD. MODE $ - RUN.KODES 
RUN.HODE$ m "CALIBRATE* 

^ffilS^ffl-!^, THEN 

^TTS^^.^-^Wi-Stry - try .gain - 
WEND ' CTO5 »- COStJ8 CHECK. INKE V s PRINT A$I A$ - OCASES(AS) 

AS - -N- THEN GET.HWES - H0S: OKAV.TO.CALIBRATES - NOS 

"JSSSSSSSFEi"** <> "»»»«• THEN 
X% - INDEX. NUH% 

PRINT - do »« B «» »*• not th. ,an..« 

AfS-^TH^." 1 "-"^"^ "* nuaber (X/N) ? 
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HENO 

- -K« THEN GET. NAME $ - NOS: OKAY. TO. CALIBRATE $ - NO* 

"S^ 05 - YES$ ™» 

ELSE 

CALTYPE$ - "N" 
END IF 
END ZF 
END IF 
WEND 
RETURN 

CALIBRATE. OLD. HEAD. DISPLAY- t _ * J( „ 

«-S (0) display. - routine to display the CALIBRATE screen 

COLOR 3, 0 

T0 ?J2JZ 1 TO WUM.CAL.HEADt 
COLOR X, O 

F °?J^ i 70 MUM.CAL.PARM% 

Sir ^-< ( "i: sss&i: ks? sasss-- 

RETURN 

W*X% - J TO IPRHmSc*^* " ««•«'•«•»»• IFHtt - IPRMSTART* 

«X«%<I%, - CA«OH, ( I % ,: - «U»«, H)I spcs%{1%) . c^p^, 

AJXDATA$ » -NOT OK" 

WHILE ALLDATAS - -NOT OK" 
FINISH$ - NO$ * 
WHILE FINISH $ - NO$ 

GOSUB ADDNEWCHAR, WITH. CHECK 
IF EXITS - YES$ THEN 

OKAY . TO . CALIBRATE $ - N0$ 

RETURN 
END IF 

CALL BLANKLINE ( 15 ) 
WEND 
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5°SDB CALIBRATION . SETUP . NAME 
^^SUB CALIBRATION . SETUP . CHECK 

RETURN 



ADBNEWCHAR. KITH. CHECK: • routin. to odd a charact.r 
AS - "" wal1 •xe.a.iv. aignala in tha PHD. 

EXITS - HOS 
WHILE AS <> CHRS{13) 

COStlB CHECK. INKEY 

SELECT CASE ASC(A$) 



cJZ J™" > IPRHMAX* THEN IPRM* % i 

. ' * »*?■"■:«■ pos(0) 

SPCS%(IPjRM%) < 



A"« lT S^fflffiS," " « «*— « THEN 



"iScate'm b ^^S-*? d ovarwrita 
LOoSf «' S S *SPACECHRS 
"*»TE R%, C% - is AS - "»: c% - posrot 

cdl " T 5°^* ™P "CATE M, COL^I 

as ?cH$sa3 r ) WO,MC% ^ 1PW!% - 1 

EXITS - VESS 

i; R s*" t: 1 tab - 90 back » 

as ilas^s? IKa,% - »»«»» 

A| - — . C % - POS(O) 

CP% - c% + i i9ht 1 ^""cter 

^IPRHf > 2PHHHAX% THEN IPRM% i 2 

CASE 68: • • no . mxit- -„„ 
PXNISH$ - YES$ * enU 
A$ - CHR$(X3) 
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CASE ELSE 
AS - «• 

END SELECT 
CASE ELSE 
END SELECT 
WEND 
RETURN 

"tSKV? il^.;^ t „ naBa the page p. r .»et.„ 

FOR J% m x TO CALSPCS%(I%) 

it " CHR ? <SaREEK < c *"KW%(I%) f CALCOL%fI%> + J* 

IF A$ - ASPACECHR$ THEN ( " J ♦ J% - 1) ) 

J% - CALSPCS%(I%) ♦ l 
ELSE 

BS - B$ ♦ A$ 

END IF 
NEXT J% 

CALPARM$(I% } - RTRIKS (LTRIM$ (B$) ) 

CA1XASTNAHES - CALFARM$(1) 
CALFIRSTNAME$ - CALPARMS ( 2 ) 

gEEKS* - VAL^CALPARM$ ( 6 ) ) 

CALEMPBRXDGE$ m CALPARMS (8) 
CALEMPIMPIANTS - CALPARMS ( 9 1 
CALEMPPACE$ - CAI*AJW$Uo\ 

^SS&i"^?-— 8 * ' - routine to ch.c* the date entered is oRav 
FO * I% • IPRHSTART% TO NUM. CAL FARM* 
IF LEN ( CALPARMS (1%)) < l SSJ 
ALLDATA$ - -NOT OK- 

^D"^f i^UND 5gT," A ValUe — ' b « -tered here." 
I^-^CAL.PARH* + 1 
NEXT 1% 

^'.•-S"^ (CALEMPHEICn- < 100 OH CALEMPHEIGHT > 220 , THEN 

^o B !5oTif ™0^ a "corr.ct th. p 8r .o„. 8 holght value . 

END IF * 
IF *U^SV-Hg?" 0 J2? Jp^Tr? ICHT * 30 0R «^P«EIG«T > 200) THEN 
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ISSk'SSfSf £2& £™Y C0r " ct «" I—-— -i*t value - 
END ZF 

AS - CALEHPS£X$ 

ThSJ AUJUlTAS " " OK " AS <> "K" AND A$ <> ... AND A$ <> «F« AND AS <> «f » 

AUJ»ATA$ - -NOT OK": IPRM* - 5 

S^D B !S2f^i^D ^ T 2 " N ° TE ' » * ' F ' «* b. «tere d here." 

END IP 
IF ALLDAXAS - «OK« THEN 
FOR 1% - 8 TO 10 
A$ - CALPARK$(I%) 

Sw&r " n " a * <> *» <> -r 

^ST^Ti^ ^ HT 2 " N0TE » a or -V. aust be entered here." 
IPRM% « 1% ' 
1% ~ NUM. CAL. PARM% + 1 
END IF 
NEXT 1% 
END IF 
RETURN 

WHILE A$ * 

jj— gy. print . 

5£*f " ESCKEY$ THEN £SCHIT$ - yes$ 

^sob chscx.xhvaud.ehtry, . - neel to c.^ for , xceasive Bignal 

RETURN 

ASTRS - — , as 2 • cre?* - oSS / Sv »S-S? PMD for an invalid entry. 
PERSOU.WMTIhIs - KOS POS(0 " » CSRUM: C% - CREP%: R* - RKEFt 

^t^cScS^*' reRS0 »-«'*"I>« e5 - HOS AND AS 0 CHRS(27, 

SELECT CASE ASC(AS) 
CASE 32 TO 217 

ASTRS - ASTRS ♦ A$ 
PRINT AS; 
C% - c% + 1 

^5 ?iv/»e«2f kmp * c# character 
IF LEN (ASTRS) > 1 THEN 
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ELSE * C% " 1: PRINT " "J LOCATE R», c% . x 

ASTR5 » «» 

END°ip TE RREF *' ««» "«HX " "= LOCATE RREF%, CREF% 

CASE ELSE 
END SELECT 
WEND 
RETURN 

"W^mM tOUtin * t0 9-t tha «-"*«tlon data tor the employe 
OUUHf& I SSSS^fflj! - CACTFIRSTS (E%) 

CAL^Se - SP<«" CALPA«H S (4, - RT RI „ S(I .TRI> 1S( , S T RS ,D E M M( 0*( E * ))) , 

C"»K8 « Z 2S™|^S"f(STRS(«)HEIGHT(E%),,, 

SgplV-'BSSSj ' «—»f».| - DPACE(E%) 

GET. STATS: • - routine t« .... 

r0 S^ % -*o l TO »™M.?EAtSrI|J *** Bea " and "tandard deviation for feature 

*^V S ™" KSSS5' " S ™ + CALFE * »L NEXT « 

NEXT jf + (CAXFEATURE (Jt , I», . AMEAN) « 2 



KMT M I%) * AMEAN 



NEXT Z% 
RETURN 



HW^.'SKr"""'-*"' DSTDEVf INDEX. MUM%, 1%) , 



RETURN 
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HH H^»T I% - < ^?y2 I FEATURES % AND REDO. PAS SI . 0 

g: asses: S! ; saxsi : erssa: 3 

^f^ffS^J^ HAX.PASSNUH% AND R£DO.PASS% - 0 



END IF 
PASS% * PASS% + 1 
WEND 
I* - 1% + 1 

WEND 



SS^iSXatSS * to with tha ^ loy .e ha igh t.v.i gh t Bnd 



RETURN 



P ^ l :^ E g^; % -- r ?So ine t0 Pl0t "» bOM ~ *• calibration plot.. 
JSBT (LBND%, LBNO%) 

S£ "(ffi: KSj* " NE ~ (UBND% , UBND%) : LINE -(UBNDt, LBNDt) 
RETURN 

0I> KAxTsAHPLES f BEFORE S^"^? ™° 6" "° raal °P««ti D n. 

Sa'B.-.T'lfSF-Sr ^ ^ * INTERRUPT . RATE 

wSS I' 5! ESSS "88 COMPANY 'S H 

tOaEI 1* 2! SSI T^ECIOOS METAL DETECTOR" 

^2 Z™*T»^lx^i2£^ "Zl- °«™ - TIMER 

«U^S.IN.RISETIME %J IHT% - COUNT% - SAMPLES . IN. RISETIME1 / 
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WHILE F1HIT$ - NO$ 
X »wS% 0 S B ? kTE ^ ** ^ lo ^ nuab « entered fro* the keyboard. 
CMXREAD. KEYBOARD: • - returns EMPNO% 
H £"22S > 0 THEN PERSON. WAITINGS - *ES$ 

^S?i! 0 ^ WAITING$ * YES * THEN 
- T £2 SUB PROCESS. PERSON. WAITING 
ELSE 

" 3l? 0 ^ ni ^ D -^ ody waitin * to walx through the pmd - 

SSaS^So^ YBOARDS ' - retUms "HITS 

lsSr ; -^ " f <"* ed for chan9in9 th8 tiBe 

SHELL "DATE": SHELL •TIME" 
^SCREEN 10, , 1, l: LOCATE OP.ROW%, OP.COL* 
WEND 



RESUME NEXT 

•^Si^S^^^ STiSr C ° ntrOX P — dU " Per.cn 

P^.WAITS G f2-^ TE - AX ^ TS%S op ERATE • ALERT% ( I % ) - O: NEXT 1% 
CALL CHECK. ID: • routine returns PERSON. CALIBRATED? . ALARMS 
and PERSON . IN . DATABASES A "«M S 

• " It 2cti5"2d iS aS A ti2 g «^ 90 ^ rou 9h the PMD, then the 'CO 1 light Will 

' ALARM^on$ » yes$ occurs when tlLSSSSFZ T° 9 ? t 2 r ° Ugh the uni? ' The 
1 condition exists , access to th^HSiJ.? ? oi 5 e i* detft cted. When this 
sway. access to the portal is denied until the noise goes 

WHILE ALARM. ON $ • YESS 

„J5° SUB ^RECK. INVALID • ENTRY 
WEND 

PASS. ALERT? - o Persons signal is digitized and processed. 

E% m INDEX. NUM% 
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IF INDEX. NUM% > 0 THEN 

- DACTFIRSTS (£%) ♦ W (AIHXT 5 . l} + . . + 

- " UN-KNOWN - DACTlASTStE*) 
fOSOB DEFINE . OPERATE . BORDER 

"cJS ( S^HSAra AT - C0MP%) * «*«>HP.CHECK% THEN 
ELSE 

£yr WVS% " V ' AT - C0MP%> * »«»•« THEN CALL COMPENSATE 
008VB RELAY. WALK i£ 
CALL CETSIGNATURE 

CA^ S ;J5££* ™ 0 THEN 
CALL GETFEATURES(O) 

END IF^ S * ALERT% - 0 THEN GOSUB COMPARE. FEATURES 
PERSON. CLEANS - YESS 
IF ALARMS - YESS THEN 
^PERSON. CLEANS - NOS 

EN 60|UB RANDOM, ALARM 

IF ALARMS « YESS THEM 
^SUB REIAyTalAMC^ 

TIMERON %) 00808 CLEAN. OFF 

END IF 

' "SS"™^ and " tandard <,eviation vaiues u8ea - 

"wjean7» *TO HUM . FEATURES % 

IF ADEL > LIM.STDEV(li) THEN " 

^NEN.SXDEV « DSTDEV(E*^ II) <£ - „ ^ 

NEXT 1% 
END If 
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LOCATE OP. ROW, OP.COL* 
IF AIARMS - YESS THEM 

2: PRIN * « alarmed.-: COLOR l 

PRINT " clean." 
END IP 

PERSON.WAXTINGS - NO$ 

if: isg^JiiJssB - - 1 - - «- 

eOBMT% - SAMPLES . IN . RISETIHEt / 2 

"55:52^!?^;,:^" to ^i„. th . bordar for th . operate noae 

VIEW (SPACE. H*. M»^L*Sim«. ™ 

WINDOW (LBNDt , LBHD%)-(UBND%, 
RETURN 

P ^EN^o?*?TT ' " r ° Utine to «ie border 

VIEW PRINT 7 TO 24: CLS 2 

^ S aSi??'^?!^ % % ,* u SSSj« R ^™-H*. 1 + DOTS. PER. VIEW. V%) 
MET (LBKDt, tBMO%) 

SSe SK>* «« -<™»*. »»%>. li ME «„»> 

RETURN 

^E^iS^i : ' lilSSV? 0 tO C °" Pare 8i 9»»t«" feature with c a i. features. 
F °* ** * * ?° HUM. FEATURES* 

* DSTDEV <E% , 1%) THEN 

^AIARMIW%(NAIARM%) - « 
NEXT 1% 

TO * '» ?.l *Q NUM. FEATURES % 

NALARH% • NAIARMt^+^i^* ' X% > * OP '^V(I %) * DSTDEV(E%. It) THEN 
^AIARMNUMMNAIARMt) - X % «. NUM. FEATURES % 
NEXT X% 

IF N ALARM % > 0 THEN 

ALARMS - YESS 
^OPERATE. ALERT% (6) . 1 
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J2* " KW. FEATURES* 
«"« 1« IOCATE 16, i 

«S»- J^S* „f ^ D1 '-* H AKGR2-, 

!! r kS5 S I, 08IM6 "»'»'"' «■(■%. NEXT 1% 

g|V^ S," 5 - DSTDEV{E%, : HEXT I* 

rDR ■ 1 TO KF% 

^gST^^^^^ - » * NUM. FEATURES % THEN 

COLOR 1 
END IP 
NEXT J% 

(jE gIg*SIH C "###„.,.; FEATURE (1%) ; 

COLOR X 

PRINT 

RETURN 

RELAY. WALK: • - rQU t. <n - «... 

RETURN ' * 

^TOATE.AIrar*,,, - x 
RETURN 



OUT PDISO%, MRXTOtt ' AND < 255 - PDIS0.ALARM%) 

TIMER OFF 

RETURN 

OUT POISO*,^RTVAL% (2S5 ~ p OISO.CLEAN%) 

TIMER OFF 

RETURN 

CHECK. KEYBOARD: • - - 

AS - im^'lMag?*^* 0 CheCk " kay "« been hi* 
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lF CHR$(123) THEN 

ATIME - TIMER: AS m *•* piHITfi - unc 

IF A **_* w CHR$<200) THEN 

"5^2^; ATIME < 2 AND A$ « «" „ 0 F1HIT$ . KO$ 

WEND A$ " CHR$(0) * CHR5(59) THEN F1H1T$ - YES$ 
END IP 
WEND 
END IF 
RETURN 

CH ^i I Sif TRY! ' - t. checW Eo r excessive s i9 „ a i sources. 

IF IHT% > O THEN 

END IF 1 XAR»(IHT%)) > V.DEL.CHK.INV.St THEN EVENT% m £ 

IP IRT% > 0 THEN 

if 5S( ( SSJ ( ( SSSJ} : ^ then even T % - x 

END IF 1 * J YAR%CIRT%)) > Y.DEL.CHK.INV.S* THEN EVENT% - £ 

IF EVENT! - 1 THEN 
EVENT % - o 

IP Ji£*55- ON$ " N0 $ THEN 

SLSSS?L ^f- WAI « * RDISO«ALARM% 
END IF 
ELSE 

IF ALARM. ON$ - YES$ THEN 
COSUB ALARM. OFF 
ALARM. ONS - NO$ 
END IF 
END IF 
RETURN 

^TOTO(AUWH.TIME%) COSUB ALARM. OFF 

F °* " " * TO HUM. OPERATE. ALERTS* 

NOT •»«»»•««*» U%> - x THEN ALERTNUM% - Z% 

^SrS 5 : I THE 5 1D$(t * TE$ ' «' 2 " " •* ™M, - 

SSS Z^E 1 ? 1 "* WANES; 
SK|CT CASE ALERTNUM* 
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LPRIHT « i« not calibrated." 

CASE 4 

ca LPRINT « took too long to <mt«r.« 
^JKOHT « took too long to walk through.- 
LPRINT * -features"; 

" LPR1NT - ™«»<«M(ttMiimin% («»,.. , next jt 

CASE 7 

case^else" •• l * cted 

eh?Sct ° lar " for untaown *•—»•" 

END IF 
RETURN 

S ^^iKIT^S2AT?SN t0 Mt UP the phasa, and gain. 

KEWFREQJ - TCFREQSET* ( FREQ& , PHASER) 
KEHCAXN% • TCGAINSET%(GAIN%) 
CALL COMPENSATE 
RETURN 

SJ^Yf " I3m0R$ " »°* THEN § 
^1TE#1, NUMBER . OP • EMPLOYEES % 
IF JS*?F- 0F • EHPL°YEES% > 0 THEN 

?« J* "J TO NUMBER. OF. EMPLOY EES % 

A1S - DACTLAST$(X%) 

aII : mS(S) T$(1%)s A3$ ■ ^crmmut)! A4% - dempno% ( i%) 

«KW #1, A1$TaS$; C A35; A5 S ^1 A« s a «? "* DOTH£R$ ( I%, 

1=11 isi^i t sin r " 

J^TE^l, 81, B2, * 3 , B4, B5, B6, B7, B8, B9, BA 
END IF 
DATA. CHANGE$ • NO$ 
CLOSE 11 
END IF 
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RETURN 



W^Vi^'J-.tJ. employee a . tabase 

INPUT #1, NUMBER • OF • EMPLOYEES % 
lF «2 H ?P-OF.EMPLOYEES% > O^KEN 

tmLv-."* 1 10 NUMBER ■ OF* EMPLOYEES % 

™ ^SSfT|^*>' "ACTriHST $( I %) , DACTINITS (1%) 

END IF 
CLOSE #1 
RETURN 

5ii X ° ! raiHT " Cann0t 10~ti the aata fil. DATA. FILENAMES 
WHILE ANS$ - «Y- 

W^s'.'ivJ^L" 00 y ° U " iBh to « MS co^ana? (y/N) ANS$ 

SHELL^rarailESS* " Ent "' r °° S COBffland "» DOSCOMMANDS 

rao^lF ' 18 IKPDT "V *ey to continue", A $ 

WEND 

gCME 34. 1: INPUT -Ent. r the new filename DATA. FILENAMES 

CONSTANT. HEAD. DISPLAY: • - n,,M« k . . 

screen o: CIS routine to display the constant screen 

F0 ? " " 1 TO NUN . CON . HEAD% 

NEXT 1% 
COLOH 10 

F °?" " 1 «> NUM,CON.PARM% 

COLOR 3 
RETURN 
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IPRM% - It IPRKKAXt - HUM. CON^PARM* * 
FOR 1% - 1 TO XPRMMAX% 

DATAR%(I%) -CONROWI(H): DATAC%(It) - CONCOLI (XI) : SPCSl(Il) - C0NU IVJWX) 
ALLDATAS - "NOT OK" 
WHILE ALLDATAS - *NOT OK" 

FINISH$ • NO$ 

WHILE PINI5H$ - NO$ 
COLOR 10 

IP IPRM% > XPRHHAX% THEN IPRM% - 1 
IP XPRM% <m o THEN IPRM% - IPRMMAX% 
SOUND 100, 3: SOUND 50, 2 

ESte" SS^SSR* COUM,% - 

CALL ADDNEWCHAR 

IF EXIT$ - YES$ THEN 

SJ^L BtA ?5 LIME(25): S0UMD 100 ' 35 SOUND 50, 2 
fSSPJJS!* £* oka * to without saving the 



S^CETInSey? P^NT^r" With ° Ut MVin3 ^ Chan9eS? < Y/N > 

cal£ $ bIan^ ( ^," " y " THEN RETURN 

END IF 
WEND 
COLOR 3 

GOSUB CONSTANT • SETUP • NAME 
AIXDATA$ - »OK" 
WEN D 
RETURN 

B$ m * m 

FOR Jt ■ 1 TO CONSPCS%(I%) 

?l r^filS^lS 0 ^* 11 *)' CONCOL%(I%) ♦ J% - 1)) 
IF AS ■" ASPACECHR$ THEN 

J% - CONSPCS%(I%) + 1 
ELSE 

B$ - B$ + A$ 
END IP 
NEXT J% 

NEXT H I% RM$(I%> " WR1M *C™aMS(B$)) 

^Sf^HJJ'f* • VAL(CONPARH$(5>) 
^lEJS'CK^-E* - VAL(CONPARH$ <«) ) 
^^^•CHECK* - 2 • X.DEL.CHX.S* 

OmOTE.WUC.DEIJLY.TIME* - VAX,{COWAStV(i] f) ' ' 
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CLEAN«TIME% - VAL(CONFARH$ (17) ) 
ALARM. TIME % - VAL(CONPARH$ (IB) ) 
reMENT. ALARM* - VAL(CONFARH$ (19) ) 
SSF' DI5PL W - CONPARNS (20) 
VIEW.LENGTH - VAL(CONPARM$ (21) ) 
RETURN 

ERR ^i^% , ^S* KES ' " • rCOr rOUtin " fOC ~— ««* "Ployee f 

REASON $ m mm 
SELECT CASE ERRNUM% 
CASE 53 

CASE E 62° N$ " ' ,Cannot flnd flle " + KAME. FILES 
CASE E 71° N$ " " Trled to rcad P aBt the of «ie file." 

CASE^E* " " Di ** 19 n0t " ady ' Plea " ensuro difiC drive is ready." 

REASONS - "Error number " ♦ STR$ (ERRNUM% ) 
SHD^S " REAS ° H * + " d,teCted ^SnSi-in,-. + NAME. FILE$ 
RESUME NEXT 

^JS*?; 2 **?*^' " routAl » ^ check on the error occur inc in FEATURE 
PaMlERtY^ »«-»«"»%« FEATURE (It) - 0. nSt« * FEATURE. 

IF RUN. MODES - "OPERATE* THEN 

OPERATE • ALERT % ( 8 ) - I 

ALARMS - YES$ 
END IF 

CALL GETFEATURES ( 1 ) 
RESUME NEXT 

SUB ADDNEWCKAR 

' routine to add a character 

AS m *" 

EXITS ■ "NO* 

WHILE AS <> CHRS(13) 

CALL GETINKEY 

SELECT CASE ASC(A$) 

^fp^i : ;pR5% a r; nca to thc next 

— P IPRM% > Ip RMHAX% THEN IPRM% - 1 
^UU?* 217 *' : - »tandard characters 
PRINT A$; : A$ - c% - POS(0) 

IF XHm m^^VJ: S ff S%( iSS %) °* C% * COLUMN% THEN 

J^H;JL!^ IPRM% * 15 A$ ■ chr$(I3) 

IF^IPRMI > IPRKMAX* THEN IPRM% - 1 

CAS ? ®! ' -backspace and overwrite 
LOCATE R%, C%: PRINT ASPACECHRS 
LOCATE R%, C% - 1: AS - C% • POS(0) 
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MC P ft CI < COLUMN* THEN LOCATE R*, COLUMN* 
^S-Si* ~ **b to the naxt field 

IPRM* - IPRM* + 1 

IF IPRM* > IPRMMAX% THEM IPRM% - 1 
A$ - CHR$(13) 

A$ 2 - ? CHRi<;3? aP * ^ * t0 * Xit * n ° 

EXITS * "YES" 

Je "SSL?" 0 THEN IPW5 * - IPRMMAX* 
A$ - CHR$(13) 

• - «hift left 1 character 
LOCATE R%, C% - 1 
A$ - "": C% - POS(O) 
- * F „5t % < COIUMN* THEN LOCATE R*, COLUMN* 
' ~ »hift right 1 character 
CP% - C* + 1 

55* <- " 80 T™ 1 ™ LOCATE R*, CP*j A$ - "": c% - POSfOl 
IF (C% - COLUMN* > >- SPCS*(IPRM*) OR C% - SO THEM C ' 
IPRK% - IPRM% + l, AS « CHR$(13) 
END 1 !?"* > IPRMMAX% THEM IPRM% - 1 
CASE 66: • - no - exit menu 
FINISHS - "YES" 
AS - CHR$(13) 
CASE ELSE 

AS - •" 
END SELECT 
CASE ELSE 
END SELECT 
WEND 
END SUB 

SUB BLANKLINE (LINE-TO. BLANK%) 

n * to bl *«k line 'LINE. TO. BLANK' 

LOCATE LINE . TO, BLANK* , 1 

PRINT SPACES (BO); 

JOCATEIJNE. TO. BLANK* f I 

EXIT SUB 
END SUB 

SUB CHECK. ID 

I ~ ?£ L \ ■" b P r °9ra» check* to ensure the empno* is in th» 

SirS^STJ^ *** «P^yee i. «Iibra"?ed? 

Alara conditions are set accordingly. 

PERSON • CALIBRATED? - "NO": ALARMS - "NO": PERSON* IN. DATABASES - "YES" 
IF RUN. MODES - "OPERATE" THEN 
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In the 'OPERATE 1 mode, PERSON . WAITING? -"YES" and it is necessary to 
determine if a valid person is waiting based on whether the person 
is in the database , and whether the person has been calibrated, 
INDEX. HUM* - 0 

FOR 1% - 1 TO NUMBER . OF . EMPLOYEES % 

IF EHPNO% - DEHPNO%(I%) THEN 

INDEX. HUM % -1%: 1% - NUMBER - OF . EMPLOYEES % ♦ 1 

END ZF 
NEXT 1% 

IF INDEX. NUM% - 0 THEN 

PERSON . IN . DATABASE? - "NO" 
ALARMS - "YES" 

OPERATE . AIXRT% ( 1 ) ■ li 9 - case for person not in the database. 
XjPRINT "Person with employee number "I EMPNO%; 
LPRINT » is not in the database." * 
END IF 

» - now need to make sure the employee has been calibrated 
IF PERSON. IN. DATABASES - "YES" THEN 
1% - INDEX. NUM% 
IF DMEAN (I%« 1) <> 0 THEN 

PERSON . CALIBRATED? - "YES" 
ELSE 

ALARM $ - "YES": PERSON. CALIBRATED $ - "NO" 

OPERATE . ALERT % ( 2 ) « 1: • - case for person not calibrated. 
LPRINT "Employee "> DACTFIRSTS (1%) ; " "I DACTINITS (1% J ? n "I 
LPRINT DACTLASTS(X%) ; " ie not calibrated." 
END IF 
END IF 
END IF 

* - Now test for the CALIBRATE mode 
IF RUN. MODES - "CALIBRATE" THEN 
INDEX. NUM% - 0 

FOR 1% — 1 TO NUMBER. OF. EMPLOYEES % 

IF DEMPNO%(I%) - EMPNO% THEN 

INDEX.NUM% - 1%: 1% - NUMBER. OF. EMPLOYEES% + 1 

END IF 
NEXT X% 

IF INDEX. NUM% - 0 THEN 

PERSON. IN. DATABASES - "NO": PERSON . CALIBRATED $ - "NO* 
ELSE 

IF DMEAN ( INDEX • NUM% , 1) » 0 THEN PERSON • CALIBRATED? « "NO" 
END IF 
END IF 
EXIT SUB 

END SUB 

SUB COMPENSATE 

* - Routine to balance the signal 

COMPCHECK% - TCCOMPENSATION%(SEG COMP#(0)) 
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SL^CT.mS 4! *°* " " 1 TO T »E«X>f*.- ^XT 1%: NEXT J% 
MffiM » XAVG%: VREF% - XAVG* 

^-^TO^f^ C SS?!?f^ ^possible COHPCHECK%.-; CO»PCHECK% 

END I IF 0T 9 " ***** return *° continue A$ 
EXIT SUB 
END SUB 

SUIJ COPY . EMPLOYEE . DATA (OLD%, NEW%) 

ssr^ rg^s^T OLD% to ' NEW% 

fi5£5E $ P IB,,% > * DACTIASTS(OLD%) 
5^Sr5$£? $ l£? W% > - DACTFIRST$(OLD%) 
DACTINIT$ (NEW%) - DACTINITS fOLD*! 

DXMPlSt^I. ^Si^S""* 5 ABRIDGE (NEW*) - DBRIDGE (OLD%) 

FOR H ■ 1 TO m«,raATURES% 

SSS2i?5S5: I% > - DMEAN(OLD% # 1%) 
NECT ' " } " ^EVfOLDI, 1%) 

EXIT SUB 
END SUB 

f UB DELATE . EMPLOYEE. FROM. DATABASE 
- routine to subtract en employee 
- Index. nuk% + i —P^yee 
"HXLE « ^J-^KUMBER . OF . EMPLOYEES % 

Sf!2? 0%(JM%) " »EMPNO%(J%) 
g*^i*2«(JH*) - DACTLASTS { J%) 

S>S -was as : 

FOR K% • 1 TO KUK* FEATURES! 

OMEAN(JM%, K%) - DMEAH(J% «) 

J% • jr% + i 

WEND 

J% « NUMBER. OF. EMPLOYEES % 
E?52!£Sii J f ) ■ 0: DACTLAST$(J%) - •"• 
SST^ T$( 2! > " *"* DACTINIT$CJ%) « 

DSEX(J%, - DHEICHT(J%) . 0 { DWEICHT(J%, • 0 : DBRIDGE (J%) - - 
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S5P£? NT(J%> " * DPACE(J%) - ««: DOTHER$(J%) - "« 
FOR W-1TO NUM. FEATURES % 1 J 

DMEAN(J%, K%) - 0 

DSTDEV(J%, K%) - 0 
KEXT K% 

ESfSsSkg^^S ■ NUI{BER • OF . EMPLOYEES % - 1 
EXIT SUB 

END SUB 

SUB DISPLAY. DATABASE 

EMAX% - NUMBER. OF. EMPLOYEES % 

IF A$ - "P« OR AS - «p« THEN 

SS^^S^SS 08 M ? TAL DETECTOR - DATABASE" 
Srrif ;I "Date : « ♦ DATES + - Time : « + times 

NUMBER • PER . PAGE % m SO TIMES 
IBOT% - O: PAGENUM% - 0: 1% « 1 

E?H«k£»| « a---a... 

£h^t?^ $( £L+ ' - init ^ii" ihe printer 
J—^JL*" N™ 5 ^ • OF . EMPLOYEES % * 
PACENUM% - FAGENUH% ♦ 1 

ITOP% - IBOT% + it IBOT% - IBOT* + NUMBER PER pirp* 
IF PAGENUM% > 1 THEN LPRINT CHRS Mjfi » i ! 

as •ass. 

LPRINT SPACES (40 - LEN ( DBHEADS ) / 21 • nnwMnc 
LPRINT SPACES(40 - LEN ( DBHEADS ) / \ - °f? EAD$ 

FEES*. S^n«(len ( dbheX5sT° 2/---) ' 

LPRINT " EMPLOYEE" ' 

LPRINT « NUMBER LAST NAME Ptpst himp ™<rm™, 

LPRINT "CALIBRATED 11 FIRST NAME INITIAL •»? 

LPRINT » 

LPRINT " it * — "; 

WHILE 1% <- NUMBER . OF . EMPLOYEES % AND 1% <- IBOT* 
J% - SEQ.NUM%(I%) IBOT* 
LPRINT USING -*«#f#«#f»; DEMPNO%(J%); 
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LPRINT « •>, 

j§£? SSS o* CT iHXT^f FIBS ^> ' 

IF DMEAN(J%, 1) <>'o THEN 

LPRINT -YES-? 
ELSE 

LPRINT " KO"i 
END XF 

IF LEN(DACTINIT$(J%) ) > j. THEN 

Jl - : « 3SS : ?: 

LPRIKT 
END IF 
1% - 1% + 1 
WEND 
WEND 

IEND* - IB 
1% - 1 

HUNT USING "#ll##f||., DEMPHO*(J%); 

"Wes.?' ~ 0 

ELSE 

PRINT » NO w i 
END IF 

IF LEN(DACTINXT$(J%)) > i THEN 

Jj SSSSSSJ: ;j : - s ». : ?: 

PRINT 
END IF 
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i% - i% + 1 

WEND 

AROW% - CSRLIH: ACOL% - POS(O) 
IEND% - X% ♦ 18 1 ' 

CALL BLANKLINE (25) 

r^VHL>\Z Pr t BB return to continue", A$ 

LOCATE AROW%, ACOL% 
WEND 
END IF 
VIEW PRINT 
EXIT SUB 

•"iS-SfSSii;.! t0 d * ternine "» to the data 

FOR II ■ 1 TO EMAX% 

IF SORTED%(I%) m o THEN 

KAXS - ^ A ^ IAST 5(I%) + DACTFIRST$(I%) + DACTINIT$ (1%) 

SORTL% - 1%: SORTH% - 1% 
1% - EMAX% + 1 
END IF 
NEXT 1% 

FOR 1% - 1 TO EMAX% 

IF SORTED%(I%) - o THEN 

?S I ?l4!e DAC E IA 5 T$(I%) + DACTFIRSTS(I%) + DACTINITS f I* ) 

END IF^ > MAX$ THEN ** X$ " ^TR?: SORTH% - li 
NEXT 1% 

NSORTt m HSORT% + 1 
LSORTPOS% - LSORTPOS% + 1 
5EQ,NUM%(LSORTPOS%) - SORTL% 
SORTED* (SORTLt) - 1 
IF SORTLt <> SORTH% THEN 

NSORTt - NSORTt + 1 

HSORTFOSt - HSORTPOS% - 1 

SEQ . NUM* (HSORTPOS % ) - SORTH% 

SORTED%(SORTH%) - I 
END IF 
WEND 
RETURN 

END SUB 

SOB GET. DATA 

! "JT? Utin * 5° coll « c * a Maple 

■ SiancK? k^^SSKP f ~ ~ and when the 
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WHILE TIMER - OLDTIME 

^X* - SX* ♦ A*(0): SY4 - SYL\ A%(1): 2 % • 2% + x 

- x n^ YAVG% - s " / « 

S?f! LSTO.^'x&^K sah^I^^SS;^* »™ count* - 0 

IHT% - IHT% + 1: TP tht* > S^'eJSSff •J2»-«VBHT% THEM IRT* - 0 
XAR*(COUNT*> - XAVG* WAX . SAMPLES . FOR . EVENT* THEN IHT% - 0 

YAR% (COUNT* ) - YAVG* 
EXIT SUB 
END SUB 

SUB GET. DAYS. FROM. 1990 

- this procedure gets the number of days since JAN 1,1990 
ADATE$ - DATES 

ANUHfc ■ 0: VR% m 1990 
WHILE YR* < YREND* 
ANUM* • ANUMt + 365 

£% ( ™*R%°? V " ° ™ BL ANUH% - ANUM* + 1 
WEND 

SSn^^V VAL <»™*<«*TES. 2)) 

WHILE MONTH* < MONTHEND* 

hISSS*" DM% (MONTH*) 

HONTH* + 1 

WEND 

ir (YREND* MOD 4) - O THEN 

^IF^MONTHEND* > 2 THEN ANUMt - ANUM& * 1 
SlT-S^- 1 "" " AK0Mfi + VAL (MXD$ ( ADATE$ , 4, 2» 
END SUB 

? TO SSS* 0 * 255 (condition*) 

and nidrange Y separations. imuxos ' nean ml ep**, 
IF condition* - 1 THEN GOTO END. FEATURE. ERROR 
' M*.*? * djtt,lt vaXue « to for so». drift 

' SuSV^^r f ° r th * £iret •* the start of the signal 

ST» i^ST?VlE^D* % : + S SS[ G ! SUMX fXfxV ™<* 

SUMX - SUMX + X*(I% ): SUHY - SUMY ♦ Y% (I*) : NEXT 1% 



* 
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AVGXST - SUHX / HAVC%: AVGYST - SUMY / KAVC% 

PM % « - S ^I - N ^=* + i' IEND% - KSAMP%: IR£FEND% - IST% 

«5SSS£ : S : »g $ [™ : »»»> 

-^adju»t values to oake end points match IREFSTt ) 

F0 ?* I% " IREFST% + * TO IREFENDt - 1 



J% - J% + X 

" X * (I%) " DEI0CPERPOINT 
NEXT 1% " (I%> " DEL * PE **°™r 
NSAKP% • J% + 1 

Xt(NSAMPt) . X%(l)z Yt(NSAMPt) 



(J% 
(J% 



Y*<1) 



X) 
I) 



XM?£ i S?U):°x5iSJ ! h 5 % ^f iBUn " n 9es and the points where they occur, 
rarNt - Y%(i ): vmax% • y%{i) 

fS 1 ?; : ? 5 to*ss£U 05 cykin% - 05 cymax * - o 

IF X%(I%) < XMIN% THEN XH1N% - Xtfltl; 

XHAXt THEN XMAX% - Xt(It): 
VHINt THEN YMIN% - Yt(It 
YMAXt THEN YKAXt - Y%<X%>: 



IF X%(I%) 
IF Y%(I%) 
IF Y%(I%) 
NEXT 1% 
IF CXMINt > 
IF CXMAXt > 
IF CYMIN* > 
IF CYMAX% 



CXMINt 
CXMAXt 
CYHINt 
CYMAX% 



1% 
1% 
1% 
Z% 



THEN XMXNt 
THEN XMAXt 
THEN YHXN% 

- • THEN YKAX% 

DELXMAX% - XMAXt - XMIN% 
DELYMAXt - YMAX% - YMIN% 
FEATURE (1) - DELXMAXt: FEATURE (2) 



(X* (CXMINt 
(X%(CXHAX% 
(Yt(CYMINt 
(Y%(CYMAX% 



I) 
1) 
X) 
1) 



XMINt 
XMAXI 
YHIN% 
YMAX% 



+ X%(CXMIN% 
+ X%(CXKAX% 
■»• Y%(CYMIN% 
+ Y%(CYMAX% 



D) 
D) 
D) 



DELYHAX% 



" SSi^cSa^ge 9 ^ th# BlOPm betW ^ n tho point * determined from the 
IF DELXMAXt > DELYHAX% THEN 
IF CXMINt < CXMAXt THEN 

2S % "»?SS N%S IEND% " CXMAXt: COSUB GET. SLOPE 
ANG - RADTODEG * ATN (SLOPE) utl.awpt 
ELSE 
iSTt 
ANG - 
END IF 
ELSE 

IF CYMIN % < CYMAXt THEN 

SViffiSi PJSUiSST' gosub get — 

IF SLOPE < 0 THEN ANG * ANG + 180 



%SS2£2 2 IEND% " CXMINt: COSUB GET .SLOPE 
RADTODEG * ATN (SLOPE) + 180 
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ELSE 

" »"D% - CYKINt: COSUB GET .SLOPE 

ANC m RADTODEG * ATN( SLOPE) 6 

END IP E * ° - AHG - 180 

END IF 

- VmaX* »<!,) / i™* " 'i'"* 1 iron lift to right. 

E^ : = ^"^HTT^ » • » «"»• XS« - „ - X 

G^r^pf D X *<"> > „ - x% - X: WEND: XENDt . X % + a 

IF SLOPE - 9999 THEN 

ANC m 999 
ELSE 

^XNG^- RADTODEG * ATN (SLOPE) 
FEATURE (4) m AUG 

' - fir»t to 9 tt tht valu«« dS iSf r J 9 !?5 •xtr«m«s of the x-*ignal 

CHSM KY^.Sll™ X%(1%) * I* - n _ Xl WEND: 1ST* - 1% 

IF SLOPE - 9999 THEN 

Ei *NC.tEFTX - 999! WtEAN. LEFTX - 999 

Q «^H.«m - SUMY / hp: ANC. LEFT 1 - RADTODEG * ATN (SLOPE) + 180 

^x^ rHS B H*- " + 18 HEND ' IST% ■ " - 1 

««5i SeT^lSpe*" D X%(1%) * C «=OCX*: « - « + X: HEND: XENO% - 1% 
IF SLOPE - 9999 THEN 

^JVNG.LEFTZ - 999: YMEAN.LEIT2 - 999 

^nffiAN.LErra - srav / np. amg.leftx - radtodeg . atn ( slope) 
■ - nov to ,.t th. v.l„.. on th. rioht of th. b,la» c . point 



SUBSTITUTE SHEET 



WO 91/03746 



PCT/CA90/00286 



-49- 



DX. RIGHT* - (XMAX% - X*(NSAMP*)) / 5 

I* - CXHAX%: CHECKX* - XLOC. RIGHT* + OX . RIGHT* 

??iV5S.;i °o£22J2 (I%) > CHECKX%: I* - I* - X: WEND: IEND% - i% ♦ 1 
. 1% - CXMAX*: CHECKX% - XLOC. RIGHT* - DX. RIGHT* 

SS5£ getTslope ND X%(1%) * CHECKX%5 I% " I% - 18 WEHD: IST% - » 

IF SLOPE - 9999 THEN 

ANG. RIGHT 1 - 999: YMEAN. RIGHT 1 - 999 
ELSE 

END < IF N " RIGHT1 " SUKY 7 NP: ANC-RIGHTl - RADTOOEG • ATN (SLOPE) 

C J^ AX%: <=HECKX% - XUOC. RIGHT* ♦ DX. RIGHT* 
^?rXa£. H 5252vi HD * CKECKXV: 1% - 1% + 1: WEND: 1ST* - 1% - 3 

^,7«. C SJ AX%: CHECKX% " XLOC. RIGHT* - Dft . RIGHT* 

^SlSIS^* ™° X%(1%> > CHECKX%: I% " " + ls "END: IEND* - I* 
IF SLOPE - 9999 THEN 

ANG.RIGHT2 - 999: YMEAN • RIGHT2 - 999 
ELSE 

END*IF K * R?GHT2 " SUMY / NPS ANG - RIGHT2 * RADTODEG * ATN (SLOPE) + 180 

^£££{2} " ANG. LEFT l: FEATURE (6) - ANG.LEFT2 
FEAT0RE(7) - ANG. RIGHT 1 I FEATURE (8) - ANG . RIGHT2 
FEATURE (9) - YMEAN. LEFT 1 - YMEAN . LEFT2 
FEATURE (10) - YMEAN . RIGHT1 - YMEAN. RIGHT2 

EN £»^£^;: ERRORS ' " WhGr « FEATURE. ERROR resumes 
ON ERROR GOTO 0 
EXIT SUB 

GET. SLOPE: • - routine to get the mean slope between points 1ST* and IEND* 
sttmv - «. linear regression f emulation is used. 

SUMX m o: SUMY - 0: SUMXY « 0: SUMXSQ - 0 
IF 1ST* < 0 THEN 1ST* - 0 
IF IEND* < O THEN IEND* » 0 
NP - IEND* - 1ST* + 1 

SS*** " £*J F JE END% < IST% ASTEP* - -1 

FOR I* m 1ST* TO IEND* STEP ASTEP* 

SUMX - SUMX ♦ X*(I*) 

SUMY m SUMY + Y%(X*) 

SUMXY - SUMXY + 1! * X*(I*} * Y*(I*i 

NEx^n 0 " SUMXSQ + 11 * x%(1%) * 

DIVISOR - NP * SUMXSQ - SUMX * SUMX 
NUMERATOR - NP * SUMXY - SUMY * SUMX 
IF ABS (DIVISOR) < 1 THEN 

SLOPE - 9999 
ELSE 

SLOPE - NUMERATOR / DIVISOR 
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END IF 
RETURN 

END SUB 



SUB CETINKEY 

' "apTee* t0 9ftt a u * ino tAe INKEYS command 

WHILE A$ - «« 

?i rr^?? #IN; * C% " *OS(0): ACHAR « SCREEN (R% r C%) : PRINT - 
S»T?!%rc% THEK ACHAR " *«CCASPA«C3W) 



WEND 
END SUB 



FOR 1% - 1 TO TIMELOOP% : NEXT 1%: PRINT CHR$ f ACHAR V- 

nro" T1HEr *° p * J next i%: iocSe^'cI^ 1 * 



SUB cetsignature 

; - routine to acquire the signature as the person walks 

through the aetal detector, 
• - initialize some parameters 

l™ B sS£Zlrl SAHPLES. IK. RISETIME% / 2 

" ^cS^r^^sTsi^r 0 " 1 fui1 ri - tiB - 

COSUB SGET.DATA 

"1vSm R i < § 0 S ) ' XREF *' XAR * (COUNT%) - VREF%) 

IF E^^ % , ( ?°^L" » X.DEL.CHK.S% THEN 

ENDttT DETECT . COUNT % - COUNT* 

1P E^^ % i^5L-JSi*J > V.DEL.CHK.S* THEN 

EVENT* • is DETECT. COUNT* - COUNT* 
END ZF 
ELSE 

IF RELAY • CONTROLS $ - YESS THEN 

3HF2J* T ^WISO*) AND (255 - PDISO.GO*) 
OUT PDISO*, PORTVAL* 
END IF 
END IF 
WEND 

IF EVENT* ■ l THEN 
START. EVENT* » 0 

WHILE TOTAL. COUNT* < SAMPLES. IN. RISETIHE* 
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OOSUB S GET. DATA 

We£d NE " (XAR%(C0UNT%> - WE". VAR% (COUNT!) - YREF%) 
END I? 

zFZnSS* i 0 o^ * or an event »"« i ri..tl». 

PROBLEM* - 0 

nh ^hSt.Sata ahd problem% ■ ° 

" — isss $ : SiiSii > £:£:£:& SI2 ss™ - ? 

MAX. 

passTalert**- 1 

IF RELAY. CONTROLSS - YES$ THEN 
IF RUN. MODE $ - * OPERATE "THEN 
ra CPERATE.ALERT%(4f R i T L »£* . y£s$ 

IF RUN. MODE $ m "CALIBRATE" THfm 
^gW/WSO*. HUfio.SSw ™ 

END 2F 
END IF 
WEND 

IF EVENT% m x THEN 



IF ABS(XAR% (COUNT*) - ^oi^?? |CWNT,) " VREF*) 

IF ABS (XAR* (COUNT*) - 2£J * J-WL.CHK.S* THEN EVENT! - 1 

IF ABS (YAR* (COUNT*) - M% 3» > S ^S^ 3 ! **** ****** ' * 

IF ABS (YAR* (COUNT*) - YAR* IHTt M t £ *E?J"2£- S% TOEN EVENT* - 1 

"pS?" > • ^^P^^BEFO^yEV^^*^^HEN ™ W " 1 



IF p£^;* ONTR0LS$ - YESS THEN 



^OUT^PDISO*, PORTVAL* 
^START. EVENT* - IRT* 



IF PROBLEM! - 1 THEN 

^LPRINT NAME*; " waited top long before entering the portal. 

fD TP 



END IP 



^SHSv.*"***" deteCt8d ' the * M " th * event " ustbe detarained 
S^SffiK} : S3K{JSf? <O0 ?«> - «««, 

« ABS(XAR%<SSot%) ?2ifSil.f ^"..CHICE* THEN 
IF ABS<YAR%(COUHT%) ^AR% Trail? X.Dtt.CHK.E% THEN 
IF ABS{YAR%(COnNT%> - YAM?SU»f * • DEL. CHK.E1 THEN 
EVENT* . o vo " T *» V*R%(IHT%)) < Y.DEL.CHK. E% THEN 
END. EVENT % - COUNT1 
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EKD if 
END IF 
END IP 
END IF 

^SSlJ 0 !^ 1 > SAMP ^'TO.ALERT% THEN 

PASS. ALERT* - X 
^OPERATE. AZXRT* (5) - 1: ALARM $ - *ES$ 

WEND 

IF PROBLEM* - 1 THEN 

^LPRINT NAMES; " took too long to walk through the portal.- 
END IF 

' lF n S2.^^ n 0 - T si2 prop#rly 

J% m 0 

IF ^ D ;P ENT% > fi TART . EVENT % THEN 

I* " START. EVENT% TO END. EVENT* 
NEXT X* + XS X%(J%) " XAR *^«>5 V%(J%) - YAR%(I%) 
ELSE 

F °J* X 2 " S ^ T -EVENT* TO MAX . SAMPLES • FOR . EVENT* 
^ - % J* ♦ U X*(J%) - XAR*(I*): y*(J*> . yAR i (I%) 

FOR I* - 0 TO END. EVENT* 

NEJCT + 1S X%(J%) " ***<H>« V*(J*> - YAR*(I*> 

END IF 

NSAMP* » J* 
END IF 
EXIT SUB 

TT£S?LL 7„ f°? tin# ^° collect a sample 

JF- WB w« , 

OLDTIKE m TIMER 

£55? " SX * / YAVG* - SY4 / 2* 

TOTAL. COUNT* m TOTAL. COUNT* * 1 

IHT* - IHT* ♦ iJ XT IHT* > MAY * Q^n^ff * £°5 " EVENT% THEN IRT* - 0 
XAR*(COUNT*) m XAVG* > MAX . SAMPLES . FOR . EVENT* THEN IHT* « O 

^(COONT*) - YAVG* 
RETURN 

END SUB 
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SUB MAIN. MENU. DISPLAY 

* - procedure to display the main menu 
SCREEN 0, , 1, l: CLS : COLOR 10 
VIEW PRINT 

LOCATE 1, It PRINT CHR$(201> + STRING$(78, 205) + CHR$(187) 7 
LOCATE 2, 1: PRINT CHR$<186) + SPACE$(78) ♦ CHR$(166); 
LOCATE 3, l: PRINT CHRS(200) + STRING$(78, 205) + CHR$<188); 

COLOR 9: LOCATE 2, 18: PRINT "THE WISE COMPANY'S PRECIOUS METAL DETECTOR** 
COLOR 2 

LOCATE 7, 10: PRINT "Select • i COLOR 9: PRINT "C"; 
COLOR 2: PRINT • - to calibrate an employee." 
LOCATE 9, 19: COLOR 9: PRINT "O" * 

COLOR 2i PRINT » - to operate in the detection node.* 
LOCATE 11 , 19s COLOR 9: PRINT "U" I 

COLOR 2: PRINT " - to update the employee data base.* 1 

LOCATE 13, 19: COLOR 9: PRINT "D"; 

COLOR 2: print « - to display the database." 

1/3 gate 17, 2: PRINT "Enter your selection ( "? 

COLOR 9: PRINT *C, O, U, "? : COLOR 2: PRINT " or "; i COLOR 9: PRINT "D"; 
COLOR 2: PRINT " ) "f 
EXIT SUB 
END SUB 

SUB FMDCONS <A%) 

GOSUB PROGRAM . MENU • CONSTANTS 
GOSUB PROGRAM. CONSTANTS 
EXIT SUB 

PROGRAM. MENU .CONSTANTS: 1 - routine used to set up the program constants 
1 used in the MENU . CONSTANTS routine. 

OPEN ••C:\PMD\0ATA\IASTSAVE.DAT" FOR INPUT AS #1 

INPUT #1, PILE.CONSTANTS$ 

CLOSE fl 

OPEN FILE- CONSTANTS $ FOR INPUT AS #1 
INPUT #1, LAST. DATES, LAST. TIME $ 

INPUT #1, X.DEL.CHK.S%, Y .DEL. CHK.S% , X.DEL.CHK.E%, Y.DEL.CHK.Et 
INPUT #1, CALIBRATE. MAX. DELAY. TIME% , OPERATE . MAX .DELAY . TIME* 
INPUT II, VIEW. LENGTH 

INPUT #1, FREQ&, PHASE%, GAIN%, DRANGE% 

INPUT #1, CLEAN .TIME* , ALARM. TIME% , PERCENT . ALARM* 

CLOSE II 

LBND% « -DRANGE%: UBND% - DRANGEt ; ■ - sets display limits of digitized data. 

CONPARM$(l) - LTRIMS (STR$ (FREQ& ) ) : CONPARM$(2) - LTRIMS (STRS (GAIN%) ) 

CONPARN$(3) m LTRIM$(STR$(PKASE%)): CONPARM$(4) - LTRIMS ( STR$ ( ORANGE % ) ) 

CONPARMS(S) - LTRIMS (STRS (X. DEL. CHK.SI)) 

CONPARM$<6) - LTRIM$(STR$(X.DEL.CHK.E%)) 

C0NPARM$(7) - LTRIMS (STRS (CALIBRATE. MAX. DELAY .TIME%) ) 

C0NPARH${8) - LTRIMS (STRS (OPERATE. MAX. DELAY. TIME%) ) 

CONPARM$(17) • URIMS (STRS ( CLEAN. TIME% ) ) 

CONPARMS(18) - LTRIMS (STRS (ALARM. TIME%) ) 

C0NPARM$(19) - LTRIMS (STRS (PERCENT . ALARM* ) ) 
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CONPARM$(21) m LTRIHS (STR$ (VIEW. LENGTH) ) 
RETURN 

PROGRAM. CONSTANTS s • - routine used to set up the other program constants 



DM%(5> - 31: DM%{6) - 30: DM%(7) - 31: DM*(8) - 31 
DK%{9) - 30: DM%(10) - 31: DM* (11) - 30: DM%(12) - 31 
INTERRUPT* RATE - 18,2 
RI SET IKE - 1! 
DIFFERENTIAL. TIME - .75 
MAX • WALK • T IKE % m 10 
REFLINE - 21 

PI » 4 * ATN(l): RADTODEG « 180 / PI 
PDISO% - 4H2A0 

FDISO.WAIT% m 0: P0ISO.GO% * 1: PDXSO . A LARK % -32: PDISO . CLEAN % ~ 64 

MAX. SAMPLES. FOR. EVENT% - MAX. WALK. TIME % * INTERRUPT. RATE 
SAMPLES. IN. RISETIME% - RISETIME * INTERRUPT. RATE 

CALQUEST$(i) - "Enter the person's last name." 
CALQUEST$(2) - "Enter the person's first name." 
CALQUEST$(3) «- "Enter the person's middle initial." 



JEND% * 2 * JEND* 
STTIME - TIMER 

FOR J% - 1 TO JEND*: FOR It • 1 TO IEND*: NEXT 1%: NEXT J% 
ENDTIME » TIMER 

IF ENDTIME - STTIME > 1.5 THEN TIME .TEST* • 1 
WEND 

LOOPSPERSEC - JEND* / (ENDTIME - STTIME) * I END* 
BLINKTIME - .05 

TIMELOOP% - BLINKTIME * LOOPSPERSEC 

MAX.PASSNUM* « 8 
NUM. FEATURES* • 10 
NUM. OPERATE. ALERTS* - 8 




XlM.lfiSTf * O: JEND 
WHILE TIME. TEST* - 0 





DEL-X 
DEL-Y 
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OP.NSTDEV(3) - 
OP.NSTDEV(4) - 
OP.NSTDEV(S) - 
0P.HSTDEV<6) ■ 
OP.NSTDEV<7) - 
OP.NSTDEV<8) - 
0P.NSTDEV{9) - 
OP.NSTOEV(IO) 
RZCOMP. CHECK* 
RETURN 

END SUB 



31: CAL.NSTDEV(3) - 21: 
3!: CAL.NSTDEV(4) -21: 
41: CAL.NSTDEV(S) ■ 3!: 
4!: CAL.NSTDEV(6) « 3!s 
41: CAL.NSTDEV(7) - 3!l 
41: CAL.NSTDEV(B) - 3 1 S 
41: CAL.NSTDEV(9) - 31: 

•41: CAIj . NSTDEV (10) • 3 1 

• 2 * X.DEL.CHK.Sl 



LIM.STDEV(3) 
LIM.STDEV(4) 
LIM.STDEV(S) 
LIH.STDEV (6) 
LIM.STDEV(7) 
LIH.STDEV{8) 
LIM.STDEV<9) 



• .5: 

- 1: 
» 2: 
m 2: 

- 2: 
2: 
2: 



LIM.STDEV(IO) - 2: 



OIF. AN 
MID. AN 
ANGL1 
ANGL2 
ANGR1 
ANGR2 
DELYL 

DELYR 



SUB PMDHEAD 

' This subprogram calls all the heading and data entry positions. 
1 The data statements are contained in the main module. 

DIM HEADR%(25), HEADC%(25), HEADTS (25) 

DIM DATASPCS% (25) 

OPEN "C : \PMD\DATA\HEADING 1 » DAT* 1 FOR INPUT AS 11 

GOSUB CALIBRATE. HEADING 

GOSUB UPDATE. HEADING 

GOSUB UPDATE • ADD • HEADING 

GOSUB CONSTANT. HEADING 

GOSUB CALIBRATE. POSN 

GOSUB UPDATE. POSN 

GOSUB CONSTANT. POSN 

CLOSE II 

EXIT SUB 

GENERAL. HEADING: ■ - routine to set up a general heading 
A$ » 

WHILE LEFT$(AS, 3) <> "998" 

LINE INPUT #1, A$ 

PRINT AS 
WEND 

IHEAD% - 0 
INPUT II, ZROW% 
WHILE IROW% <> 999 
INPUT II, NHEADt 
FOR 1% - 1 TO NHEAD% 

INPUT |l f ICOL%, HEADS 
I HEAD % - I HEAD % + 1 

HEADR%(IHEAD%) - IROW%: HE ADC % ( I HEAD % ) « ICOL* 

HEADTS ( I HEAD % ) - HEADS 

NEXT 1% 
INPUT II, IROW% 
WEND 

NUMBER. OF. HEADINGS % - I HEAD % 
RETURN 

CALIBRATE. HEADING: • - routine to set up the CALIBRATE screen 
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GOSUB GENERAL . READING 

NUM. CAL. HEAD* - NUMBER. OF. HEADINGS % 

FOR 1% - 1 TO NUM. CAL. HEAD* 

CALHEADR*(I*) - HEADR* (1%) 

CALHEADC*(I%) - HEADC*(I*) 

CALHEADT$(I%) « HEADT$(I%) 

NEXT 1% 
RETURN 

UP ™™ H J?£f£!! G ; ' • routine to »** up the UPDATE screen 
GOSUB GENERAL. HEADING 

NUM. UPDATE. HEAD* - NUMBER .OF. HEADINGS * 
FOR « ■ 1 TO NUM. UPDATE. HEAD* 

UP DATEHEADR* ( I % ) - HEADR* (I*) 

UPDATEHEADC* ( I % ) - HEADC*(I*) 

UPDATEHEADT$ (1%) - HEADT$(I*J 

NEXT X% 
RETURN 

OT S*gg^ ,I gg; r ; T? ; "» tin » to «P th. UPDATE .ADD screen 

NUM. UPDATE. ADD. HEAD* - NUMBER . OF • HEADINGS * 
FOR I* - 1 TO NUN . UPDATE . ADD • HEAD* 

UPDATEADDHEADR* ( 1% > - HEADR* < I* ) 

UPDATEADDHEADC* (I*) - HEADC*(I*) 

UPDATEADDHEADTS (I*) - HEADTS (I*) 

NEXT X* 
RETURN 

C0 ^SfiS^?i E ; D ; N s outine to set up the constant sc « en 

NUM. CON. HEAD* - NUMBER. OF -HEADINGS* 
FOR I* - 1 TO NUM. CON. HEAD* 

CONHEADR* (I*) - HEADR* { I*) 

CONHEADC*(I*) - HEADC*(I%) 

CONHEADT$ (I*) - H£ADTS(I%) 

NEX T 1% % 4 

RETURN 

GENERAL.DATA.POSN: • - routine for entering date entry positions 

WHILE LEFT$(A$, 3) <> "998- 
LINE INPUT II, A$ 
PRINT AS 



I HEAD* - 0 
INPUT #1, IRON* 
WHILE IRON* <> 999 
INPUT #X, NHEAD* 
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FOR 1% - 1 TO NHEAD% 

INPUT fl, IODL%, ZSPC% 
IHEAD% - IHEAD* + 1 

D AT AR% ( IHEAD* ) - IROW%; DAT AC % (IHEAD%) - ICOL%: DATASFCS* (IHEAD*) - IS PCI 

NEXT 1% 
INPUT fl, IROW% 
WEND 

NUMBER. OF. POSITIONS* « IHEAD% 
RETURN 

CALIBRATE. POSN: • - routine for entering CALIBRATE data positions 
GO SUB GENERAL. DATA. POSN 
NUN • CAL. PARH% - NUMBER. OF. POSITIONS % 
FOR Z% » 1 TO NUMBER « OF • POSITIONS % 

CALROW%(I%) - DATAR%(X%) 

CALCOL*(I%) - DATAC*(I*) 

CALSPCS*(I*) - DATASPCS*(I%) 

NEXT 1% 
RETURN 



UPDATE. POSN? » - routine tor entering UPDATE. ADD data positions 
GOSUB GENERAL. DATA. POSN 

NUM. UPDATE. PARH% - NUMBER. OF. POSITIONS % 
FOR 1% - 1 TO NUMBER .OF. POSITIONS % 

UPDATEROW*(X%) - DATARI (1%) 

UPDATECOL%<I%) - DATAC%(I%) 

UPDATESPCS%(I%) - DATASPCS*(I*) 

NEXT 1% 
RETURN 



CONSTANT • POSN : • - routine tor entering CONSTANT data positions 
GOSUB GENERAL. DATA. POSN 
NUM. CON. PARK* - NUMBER. OF. POSITIONS % 
FOR 1% - 1 TO NUMBER. OF. POSITIONS % 

CONROW%(I%) - DATAR* (I*) 

CONCOL%(I%) - DATAC%(I%) 

CONSPCS%(I%) - DATASPCS*(I*) 

NEXT 1% 
RETURN 

END SUB 

SUB READ. KEYBOARD 

» - routine to read the keyboard to get the employee number 

SHARED PERSON. WAITINGS, NEED. TO. BLANKS, F1HITS 

SHARED LASTKEYS , EMPNO*, DEMPNOI () , NUMBER. OF. EMPLOYEES % 

SHARED INDEX. HUM % 

SHARED YES$, NO$, OK$, NOTOKS 

PERSON . WAITING $ - NO$ 

VIEW PRINT 22 TO 24 
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IF HEED • TO • BLANKS * YES$ THEN 
CLS 2 

CALL BLANKLINE(23): PRINT "Press any key to initiate a test."; 
SOUND 10O # 3: SOUND 50, 2 
NEED. TO. BLANKS - NO$ 
END IF 

A$ - LASTKEYS 

IF LEN(AS) <> 0 THEN 

CALL BLANKLJNE(23) : SOUND 500, 2: SOUND 200, 2 
INPUT ; "Enter employee number : **, EMPNO% 
NEED. TO. BLANKS - YES$ 

IF EHPNO* > 0 THEN : PERSON . WAITINGS - YES$: CALL BLANK LINE (23) 
END IF 
VIEW PRINT 
EXIT SUB 
END SUB 

SUB SWAP. EMPLOYEE (HIGH . INDEX . NUM% , ARRAY. ENTRY. POINT*} 

• - routine to swap the employee at the proper location in the database. 
IF ARRAY .ENTRY . POINT% < NUMBER. OF. EMPLOYEES* THEN 

FOR J% - HIGH. INDEX. NUM* TO ARRAY . ENTRY . POINT* + 1 STEP -1 
JM* « J* - 1 

SWAP DEKPNO* (J*) , DEMPNO*(JK*) 
SWAP DACTLASTS (J*) , DACTLASTS ( JM* ) 
SWAP DACTPIRST$(J*) , DACTFIRSTS ( JM* ) 
SWAP DACTINIT$(J*) , DACTINITS ( JM* ) 

SWAP DSEX(J*), DSEX(JM*): SWAP DHEIGHT(J*) , DHEIGHT(JM*) 
SWAP DWEICHT(J*), DWEIGHTf JM*) : SWAP DBRIDGE(J*) , DBRIDGE( JM*) 
SWAP DIHPLANT(J*) , DIHFLANT ( JM* ) : SWAP DPACE(J*> , DPACE(JM*) 
SWAP DOTKERS(J%), DOTHERS ( JM*) 
FOR I* - 1 TO NUM. FEATURES* 

SWAP DMEAN(J%, I*), DMEAN(JM* , I*) 

SWAP DSTDEV(J*, I*), DSTDEV(JM* , I*) 
NEXT 1% 
NEXT J* 
END IF 

IN . SECURE . AREA* (ARRAY . ENTRY .POINT *) - O 
EXIT SUB 
END SUB 

SUB UPDATE. EMPLOYEE. DATABASE 
SHARED INDEX, HUH* 

' - routine to update the employee database 
DIM UPDATEPARMS (5) 
RESPONSES » **" 
VALID • ENTRY $ » "YES* 

WHILE RESPONSES <> "Q" AND RESPONSES <> "q" 
GOSUB UPDATE. HEAD. DISPLAY 
IF VALID • ENTRY S - "NO" THEN 

LOCATE 21, 1: PRINT -Invalid entry - try again "; 

SOUND 500, 2: SOUND 300, 2: VALID. ENTRY $ - ••YES 11 
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END IF 

LOCATE 7, 54: PRINT NUMBER. OF. EMPLOYEES % 

LOCATE 19, 2: PRINT "Enter your selection ( A, O, c.or Q ) "; 
SOUND 100, 3: SOUND 50, 2 
CALL GETINKEY 
RESPONSES - A$ 
PRINT AS; 

SELECT CASE RESPONSES 
CASE "A", "a" 

COSUB ADD. EMPLOYEE 
CASE IS » "D", "d" 

GOSUB DELETE. EMPLOYEE 
CASE "C", *c" 

GOSUB CHANGE. EMPLOYEE 
CASE IS - "Q", "q" 

LOCATE 23, 1: PRINT "STOP" 
CASE ELSE 

VALID. ENTRY $ - "NO" 
END SELECT 
WEND 
EXIT SUB 

UPDATE • HEAD . DISPLAY : • - routine to display the UPDATE screen 
SCREEN O: CLS I VIEW PRINT 
FOR 1% - 1 TO NUM. UPDATE. HEAD% 

LOCATE UPDATEHEADR% ( 1% ) , UPDATEHEADC% ( I* ) 

PRINT UPDATEHEADTS (1%) ; 
NEXT 1% 
RETURN 

ADD. EMPLOYEE: • - routine to add an employee to the database 
VIEW PRINT 9 TO 24 
CLS 2 

LOCATE 25, is COLOR 10, is PRINT "Press •Esc' key to exit.": COLOR 2, 1 

LOCATE 9, 1 

EXITS «- "NO" 

ALLDATAS - "NOT OK" 

IPRMMAX% - NUM. UPDATE. PARK % 

FOR It - 1 TO IPRMMAX% 

DATAR% ( I % ) - UPDATEROW%(I%)s DATAC*(I%) - UPDATECOLt (1%) 

SPCS%(I%) - UPDATESPCS%(I%) 
NEXT 1% 

ANOTHERS - "Y" 
WHILE ANOTHERS - "Y" 
IFRM% » 1 

GOSUB UPDATE. ADD. HEAD. DISPLAY 
ALLDATAS » "NOT OK" 
WHILE ALLDATAS - "NOT OK" 

FINISHS - "NO" 

WHILE FINISHS - "NO" . 

IF IPRM% > IPRMMAXt THEN IPRM% - 1 

IF IPRM% <- 0 THEN IPRM% » IPRMMAX% 
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SOUND 100, 3: SOUND 50, 2 

ROW% - DATAR% ( ZFPM% ) S COLUKN% - DATACt { I PRH% ) 
LOCATE ROW%, COLUMN* 
CALL ADDNEWCHAK 
IF EXITS - "YES" THEN RETURN 
CALL BLANKLINE ( 18 } ; CALL BLANKLINE ( 17 ) 
WEND 

COSUB UPDATE. CHECK 

IP ALLDATA$ - "OK" THEN 

GOSUB UPDATE. EHP. NUM. IN. USE. CHECK 
IF EMP.NUH.IN.USE5 - "YES** THEN 

CALL BLANKLINE ( 18) : CALL BLANKLINE { 17 ) 

PRINT "This employes number i« currently in use - "? 

PRINT "enter a new value" 

PRINT " or delete the other employe* from the database. M 
SOUND 500, 2: SOUND 300, 2 
IPRM% - 4: ALLDATA$ - "NOT OK" 
END IF 
END IP 

IF ALLDATAS - "OK" THEN 

ARRAY . ENTRY . POINT% - NUMBER. OF. EMPLOYEES % + 1 
GOSUB UPDATE. ADD. DATABASE 
FOR J% - X TO NUM. FEATURES % 

DMEAN (ARRAY. ENTRY .POINT*, J%) - 0 

DSTDEV (ARRAY . ENTRY . POINT% , J%) - 0 
NEXT J\ 

CALL BLANKLINE (17): CALL BLANKLINE ( 18 ) 
PRINT "Enter another? Y(ye») N(no) "; 
CALL CETINKEY 
ANOTHER $ m UCASE$(A$) 
END IF 



UPDATE .ADD. HEAD. DISPLAY: * - routine to display the UPDATE. ADD screen 
SCREEN 0: CLS : VIEW PRINT 
FOR II « 1 TO HUM . UPDATE . ADD . HEAD% 

LOCATE UPDATEADDHEADRt ( I % ) , UPDATEADDHEADC* (1%) 

PRINT UPDATEADDHEADT $ ( I % ) J 
NEXT 1% 

FOR II • 1 TO HUM . UPDATE . PARM% 

LOCATE UPDATEROW%(I%) , UPDATECOL% (1%) 

PRINT LEFTS (SPACECHRS , UPDATESPCS% (II) ) f 
NEXT 1% 
RETURN 

UPDATE. CHG. HEAD. DISPLAYS • - routine to display the UPDATE. CHG screen 
SCREEN 0: VIEW PRINT: CLS 
FOR 1% - 1 TO NUM. UPDATE. ADD. HEAD% 

LOCATE UPDATEADDHEADR* ( I % ) f UPDATEADDHEADC% ( I % ) 



WEND 
RETURN 



PRINT 
NEXT 1% 



{!%>* 
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FOR 1% - 1 TO NUM . UPDATE . PARK * 

LOCATE UPDATEROW%(I%) , UPDATECOIA (1% ) 

PRIHT LEFTS (SPACECHRS , UPOATESPCS* (I*) ) ; 
NEXT X% 

"S*" UPDATER0W%(1), UPDATECOL% ( 1 ) : PRINT DACTLASTS ( ECHG% ) 
i 00 ^ OPDATEROW%(2) f OPDATECOL* < 2 ) : PRINT DACTFIRSTS ( ECHG % ) 

H55 A H?° W * (3) ' UPDATECOL%(3): PRINT DACTINIT$ ( ECKG% ) 
LOCATE UPDATEROW%(4), UPDATECOL* < 4 ) - lz PRINT DEMPNO%(ECHG%) 
RETURN * ' 

0 ^S*S5w f ? 8 io , i; routine to renove * n employee from the database. 

CLS 2 

LOCATE 8, 10 

EMpTfoUNOS^ TO" * mpl ° yce ftuxaber to delete from the database «; AEMPN0% 
FOR « • 1 TO NUMBER . OF • EMPLOYEES % 
IF AEMPNOt - OEMPNO%(I%) THEN 
EMP. FOUNDS » "YES"* 
ARRAY. ENTRY. POINT* - 1% 
1% ■ . NUMBER • OF . EMPLOYEES % + 1 
END IF 
NEXT 1% 

IF EMP. FOUND$ - "YES* THEN 
I* - ARRAY. ENTRY. POINT* 

- DACTFIRSTSCIt) + . » + DACTINITS ( I % > + « «• + DACT LASTS (1%) 

PRINT^ ANAME$; m ^ WUh '° ' "> 

INPUT ■ 7 Y(Yes) N(No) «, ANS$ 

IF ANS$ - -Y- OR ANSS - -y" THEN 
INDEX. NUM% - 1% 

CALL DELETE. EMPLOYEE. FROM. DATABASE 

LPRINT -Employee »; AN AMES; • number AEMPNO*? - deleted.- 

£nu IF 
ELSE 

lo*St1 IV ill £52 ;^P lo y« number -? AEMPNO* ; - ls not found .« 

™^ T L"'J:S S PR1NT wpr *»» **Y to continue - j 

CALL GETINXEY 
END IF 
VIEW PRINT 
RETURN 

^^Sfi^SjyS'i* I routln » to chan ?« a« employee's data in the database. 

• ^'r^i^ i L$io?:. u s2bS! n an • xisting * mpioy * e ChaB9 " either 

VIEW PRINT 7 TO 25: CLS 25 LOCATE 8, 10 

" Entor employee's last name : CHGLASTNAMES 
^MONOf" TO^ " Enter e °P l0 y ee,C 5 f CHGNUMBER* 

FOR I* — 1 TO NUMBER • OF • EMPLOYEES * 

IF CHGNUMBER* - DEMPNO%(I%) THEN 

ECHG* m i% 
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1% - ECHG% + 1 
EMP.FOUND$ - "YES" 
END ZF 
NEXT 1% 

IP EHP.FOUND$ - "NO" THEN 

PRINT "An entry in the database with Employe© f "; 

PRINT CHGNUMBER% I ■ is not found." 

INPUT " - press return to continue.", AS 

RETURN 
END ZF 

IF DACTLAST$ (ECHG%) <> CHGLAS TNAME $ THEN 

PRINT "Last naves do not natch - employee # "? CHGNUMBER% ; " is 
PRINT DACT LASTS (ECKG% ) j INPUT " t press return to continue", A$ 
RETURN 

END IF 

* The employee number and last names are okay - now ready to accept changes. 
ALLDATA$ » "NOT OK" 
IPRHKAX% - NUK . UPDATE . PARH% 
FOR 1% m 1 TO IPRMKAX% 

DATAR%(I%) - UPDATEROW%(I%): DATAC%(I%) « UPDATECOL%(I%) . 

SPCS%(I%) m UPDATESPCS%(I%) 
NEXT 1% 

ANOTHERS - "Y" 
IPRM% - 1 

GOSUB UPDATE. CHG. HEAD. DISPLAY 
ALLDATA$ - "NOT OK" 
WHILE ALLDATA$ - "NOT OK" 
FINISHS - "NO" 
WHILE FINISH$ - "NO" 

IF IPRM% > IPRMMAX% THEN IPRM% - 1 
IF IPRM% <- 0 THEN IPRH% - IPRHMAX% 
SOUND 100, 3: SOUND 50, 2 

ROW% - DATAR*(IPRM%) : COLUHN% - DATAC% ( IPRH% ) 
LOCATE R0W%, COLUKN% 
CALL AODNEWCHAR 
IF EXITS - "YES" THEN RETURN 
CALL BLANXLZNE(17) 
WEND 

GOSUB UPDATE • CHECK 

GOSUB UPDATE . EMP . HUM .IN. USE. CHECK 

IF EHP. NUM. IN. USES - "YES" AND IN.USE.NUHt <> ECHG% THEN 
CALL BLANKLINE ( 17 ) 

PRINT "This employee number is currently in use - "? 
PRINT "enter a new value." 
SOUND 500, 2t SOUND 300, 2 
IPRH% m 4: ALLDATA$ - "NOT OK" 
END IF 

IF ALLDATA$ - "OK" THEN 
GOSUB UPDATE * CHECK 
DACT LASTS ( ECHG% ) - UPDATEPARHS (1) 
DACTFIRSTS (ECHG%) - UPDATEPARM$ ( 2 ) 
DACTINIT$ (ECHG%) - UPDATEPARHS ( 3 ) 
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DEMPNO%(ECHG%) - VALfUFDATEPARM${4) ) 

DATA. CHANGE 5 - "YES" 
END IP 
WEND 
RETURN 

UPDATE. CHECK: * - routine to check that the UPDATE values are ok, and to 
' place values in the UPDATEPARMS { ) array. This routine is called 

* from ADD • EMPLOYEE and CHANGE . EMPLOYEE . 

A LID AT A $ - »OK" 

FOR 1% - 1 TO NUM. UPDATE. PARM% 
B$ - » « 

POR J% « 1 TO UPDATESPCS%(I%) 

A$ - CHR$ (SCREEN (UPDATEROW%(I%) , UPDATECOL% (1%) + J% - 1) ) 
IP AS m ASPACECKRS THEN 

J% - UPDATESPCS*(I%) + 1 
ELSE 

B$ - B$ + A$ 
END IF 
NEXT J% 

UPDATEPARM$(I%) - RTRIM$ (LTRIM$ (B$) ) 
NEXT 1% " 

FOR 1% - 1 TO NUM. UPDATE. PARM% 

IF LEN ( UPDATE PARK $ ( I % ) ) < 1 AND 1% <> 3 THEN 
ALLDATAS - "NOT OK" 

CALL BLANKLINE<17) : PRINT "A value must be entered here." 
SOUND 500, 2: SOUND 300, 2 
IPRM% - 1% 
RETURN 
END IF 
NEXT 1% 

AEMPNOt - VAL (UPDATE P ARM $ ( 4 ) ) 
IF AEMPNO% <- 0 THEN 
ALLDATAS - "NOT OK" 

CALL BLANKLXNE ( 17 ) : PRINT "This employee I is not valid - »; 

PRINT "enter a new value." 

SOUND 500, 2: SOUND 300, 2 

IPRM% m 4 

RETURN 
END IF 
RETURN 

UPDATE .EMP. NUM. IN. USE. CHECK: ■ - routine to determine if the employee I is in 
use 

EMP.NUM.IN.USES « "NO" 
FOR 1% - 1 TO NUMBER .OF. EMPLOYEES % 
IF DEMPNO%(I%) m AEMPNO% THEN 
IN.USE.NUM% * 1% 
1% m NUMBER . OF • EMPLOYEES % + 1 
EMP.NUM.IN.USES - "YES" 
RETURN 
END IF 
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NEXT 1% 
RETURN 

DEHFNO%(K%) m A£MPNO% 
DACTIAST$(K%) - UPDATE PARM$ ( 1) 
DACTFIRSTS ( K% ) • UPDATE PARH$ (2 ) 
DACTXNITS(K%) - UPDATE PARH$ ( 3 ) 
DATA. CHAHGE$ - "YES" 

^SfSSlSOTcISf % " NUMB ER.OP.EHPI^VEES% + 1 

^^r^^E^^ri^^:: °^^CK%,; ■ DACTLAST$ (K%) j 

RETURN 
END SUB 
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THE EMBODIMENTS OF THE INVENTION IN WHICH AN EXCLUSIVE 
PROPERTY OF PRIVILEGE IS CLAIMED ARE DEFINED AS FOLLOWS: 

1. A method of detecting concealed metals comprising the steps of: 
generating a fluctuating electromagnetic field about a passageway; 
passing a person or object through said passageway; 

obtaining an electrical signal representative of said electromagnetic field as said 
person or object passes through said passageway; 

comparing the values of predetermined characteristics of said electrical signal 
against the corresponding values of said characteristics of a base electrical 
signal for said person or object previously obtained when said person or 
object was known not to contain concealed metals; and 

generating an alarm signal when the differences between at least one of said 
characteristics signals exceeds a predetermined threshold. 

2. A method as defined in claim 1, said producing step including processing 
said electrical signal to determine quantitative values for each of said 
characteristics of said signal and said comparing step including comparing said 
quantitative values against corresponding base values of said characteristics for 
said person or object previously obtained when said person or object was known 
not to contain concealed metals. 

3. A method as defined . in claim 2, said processing step including 
demodulating said electrical signal to produce a first signal representative of the 
resistive component of said electromagnetic field and a second signal 
representative of the reactive component of said electromagnetic field. 
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4. A method as defined in claim 3, said processing step including the steps of: 
detennining the magnitude of each said first and second signals at predetermined 

increments of time; 
detennining the maximum amplitude of each of said first and second signals; 
detennining an overall differential phase angle between said first and second 

signals; 

detennining an intermediate differential phase angle between said first and 
second signals; and 

deterinining a differential phase angle for each of a plurality of different positions 
of said person or object in said passageway. 

5. An apparatus for detecting concealed metals on a person or object, 
comprising: 

means for generating an electromagnetic field about a passageway; 

means for producing an electrical signal representative of said electromagnetic 

field as said person or object passes through said passageway, and 
means for comparing the values of predetermined characteristics of said signal 

against conesponding values representative of an electrical calibration 

signal obtained when said person or object was known not to contain 

concealed metals; and 
means for generating an alarm signal when the differences between the values of 

at least one of said characteristics of said signals exceeds a predetermined 

threshold. 



6. An apparatus as defined in claim 5, said producing means including means 
for demodulating said electrical signal to produce a first signal representative of 
the resistive component of said electromagnetic field and a second signal 
representative of the reactive component of said electromagnetic field. 
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7. An apparatus as defined in claim 6, said producing means being operable 
to determine the magnitude of each said first and second signals at predetermined 
increments of time, the maximum amplitude of each of said first and second 
signals, an overall differential phase angle between said first and second signals, 
an intermediate differential phase angle between said first and second signals, and 
a differential phase angle for each of a plurality of different positions of said 
person or object in said passageway. 

8. An apparatus as defined in claim 5, said means for generating an 
electromagnetic field about a passageway including a transmit coil extending about 
said passageway with an axis extending longitudinally through said passageway and 
means for producing an alternating current at a predetermined frequency within 
said coil so as to form said magnetic field about said coil. 

9. An apparatus as defined in claim 8, said means for producing an electrical 
signal including a pair of receive coils about said passageway and coaxially spaced 
apart on opposite sides of said transmit coil, said receive coils having a common 
terminal and output terminals and being responsive to a changing magnetic field 
within said passageway to produce alternating voltages across said receive coils. 

10. An apparatus as defined in claim 9, further including an amplifier having 
input terminals connected to said output terminals of said receive coils and an 
output terminal for producing said electrical signal. 

11. An apparatus as defined in claim 10, further including means for producing 
and matching a reference signal to said electrical signal from said receive coils and 
means for obtaining a difference signal which is the difference between the 
amplified receive coil output signal and said reference signal. 



WO 91/03746 



PCT/CA90/00286 



- 68- 

12. An apparatus as defined in claim 11, further including a demodulator for 
receiving said differential signal and producing first and second output signals 
representative of the resistive and reactive components of said differential signal. 

13. An apparatus as defined in claim 12, further including converter means for 
converting first and second output signals to first and second digital output signals, 
respectively. 

14. An apparatus as defined in claim 13, further including computation means 
for processing said first and second digital output signals to determine the values 
of predetermined characteristics of thereof and compare said values against 
predetermined calibration values of said characteristics representative of said 
person or object 

15. An apparatus as defined in claim 14, said computation means being 
operable to determine the magnitude of each said first and second signals at 
predetermined increments of time, the maximum amplitude of each of said first 
and second signals, an overall differential phase angle between said first and 
second signals, an intermediate differential phase angle between said first and 
second signals, and a differential phase angle and signal magnitudes for each of 
a plurality of different positions of said person or object in said passageway. 

16. An apparatus as defined in claim 10, further including means for reducing 
the effect of objects moving in said passageway in close proximity to said receive 
coils. 

17. An apparatus as defined in claim 16, said reducing means including field 
shaping coil means associated with said receive coil means and responding to the 
magnetic field in the vicinity thereof by inducing an additional magnetic field in 
said station whereby voltages induced in the receive coil means are substantially 
influenced by currents flowing in the associated field shaping cofl means. 
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18. An apparatus as defined in claim 17, wherein further including means for 
maintaining said additional magnetic field in an selected out-of-phase relationship 
with respect to the magnetic field generated by said transmit coil means. 

19. An apparatus as defined in claim 5, further including a portal unit defining 
said passageway through which the person moves with said coil means being 
coaxialty located with respect to each other in planes generally perpendicular to 
the axis of the passageway along which the person moves. 

20. An apparatus as defined in claim 18, said field shaping cofl means 
comprising a pair of field shaping coils, each located adjacent to a respective one 
of said receive coils. 

21. An apparatus as defined in claim 10, further including capacitor means 
connected to said common terminal to produce a resonant condition between said 
receive coils during operation such that as the voltage in one receive coil increases 
the voltage in the other decreases so the net voltage across both receive coils is 
substantially zero when there said passageway is empty. 

22. An apparatus as defined in claim 10, further including means to zero or 
null any induced unbalanced voltages across the receive coils arising from coil 
winding inaccuracies and the like. 

23. An apparatus as defined in any of the preceding claims, further including 
ferromagnetic shielding means located and arranged to reduce or eliminate eddy 
currents and resulting magnetic field disturbances arising in materials exterior to 
the detecting station. 
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24. An apparatus as defined in any of the preceding claims, further including 
field shielding coil means spaced outwardly from the receive coil and field shaping 
coil means and arranged such that currents induced in the field shielding coils by 

i 

the fluctuating magnetic fields in the station create still further magnetic fields 
which act to reduce the strength of magnetic fields extending outwardly away from 
the detecting station. 

25. For use in a metal detecting system wherein a person capable of carrying 
concealed metal pieces is caused to pass through a detecting station within which 
a rapidly fluctuating magnetic field exists and means are provided to sense 
changes in the magnetic field resulting from passage of the person's body and any 
metals carried thereon, the calibration method substantially as described with 
reference to Figure 6. 

26. For use in a metal detecting system wherein a person capable of carrying 
concealed metal pieces is caused to pass through a detecting station within which 
a rapidly fluctuating magnetic field exists and means are provided to sense 
changes in the magnetic field resulting from passage of the person's body and any 
metals carried thereon, the detection method substantially as described with 
reference to Figure 7. 
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